Паскаль входной файл содержит данные о пользователях социальных сетей в виде: иванов иван м 42 петрова анна ж 26 вывести в выходной файл фамилии и имена всех мужчин младше 30 лет.

Var vz: integer;       fin,fout: text;       st: string; begin   assign(fin,'data.in');   reset(fin);   assign(fout,'data.out');   rewrite(fout);   while not eof(fin) do   begin       readln(fin,st);       vz: =strtoint(copy(st,length(st)-1,2));         if (vz< 30) and (st[length(st)-3]='м') then             writeln(fout,copy(st,1,length(st)-5));   end;   close(fin);   close(fout); end.   { data.in иванов иван м 26 перова марья ж 21 петров василий м 32 сидоров андрей м 18         data.out   иванов иван сидоров андрей } 

 

 

 

крик