паскальВходной файл содержит данные о юзерах соц сетей в виде:Иванов Иван

Turbo? Free? ABC? ABC.NET?

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 (vzlt;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
 
Иванов Иван
Сидоров Андрей