Type Uchitel=record       
       fam: string[15];       
       nam: string[15];       
       otch: string[20];       
       predmet: string[15];
       stazh: string[3];       
       nagruzka: string [4];
       end;
var a:array[1..100] of Uchitel;    
    fin,fout:text;    
    i,j:integer;    
    s : String;
BEGIN
assign(fin, 'Uchim.txt');
reset(fin);
i:=0;
repeat i:=i+1;
with a[i] do
readln(fin,fam,nam,otch,predmet,stazh,nagruzka);
until eof(fin);
close(fin);
assign(fout,'Spisok.txt');
rewrite(fout);
for j:=1 to i do if (a[j].predmet='informatika    ') or (a[j].predmet='matematika     ')
then writeln(fout,a[j].fam,a[j].nam,a[j].otch,a[j].predmet,a[j].stazh,a[j].nagruzka);
close(fout);
END.