Составить список сотрудников,
предприятия, уходящих в 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;beginfor i:=1 to 10 doreadln(a[i]);readln(b[i]);readln(c[i]);t:=1;for i:=1 to 10 doif (2014-a[i])>65 then begin d[t]:=b[i]; t:=t+1; end;for i:=1 to 10 doif c[i]='м' then m:=m+1else n:=n+1;m:=m\10*100;n:=n\10*100;for i:=1 to t dowriteln(d[i]);writeln(n);writeln(m);readln;end.