{Izveidot funkciju ar masivu,kas satur prieksmetu nosaukumus.
Funkcija parvers sanemtos divus (tris) burtus teksta forma.
Izveidot programmu, kas no tastauras ievadito saisinajumu
piemeram Fiz12 parvers forma- Fizika, 1.kurss, 2.grupa.}
uses crt;
const n=7;
     mas:array[1..n] of string =('Fizika','Datori','Ekonomika',
     'Sports','Filosofija','Politika','Astronomija');
var
   i,k:integer;
   s,x:string;

function prieksmets(s:string):string;
var x:string;
   begin x:=copy(s,1,3);
   for i:=1 to n do begin
       if mas[i]>x then write(mas[i]);
   {prieksmets:=mas[i];}end;end;

begin
   clrscr;
   readln(s);
   prieksmets(s);
   {writeln(prieksmets);}
readkey;
end.