Составить список сотрудников, предприятия, уходящих в 2014 году на пенсию, определить процент лиц мужского и женского пола. Исходными данными является список сотрудников из 10 человек с указанием их пола, года рождения.

a:array[1..10] of integer; b, d:array[1..10] of string; c:array[1..10] of string; m, n, i, k, t :integer; begin for i:=1 to 10 do readln(a[i]); readln(b[i]); readln(c[i]); t:=1; for i:=1 to 10 do if (2014-a[i])>65 then begin d[t]:=b[i]; t:=t+1; end; for i:=1 to 10 do if c[i]='м' then m:=m+1 else n:=n+1; m:=m\10*100; n:=n\10*100; for i:=1 to t do writeln(d[i]); writeln(n); writeln(m); readln; end.