Program zap_20-

Uses Crt-

Const n=10-

Type uch = record

Fio:string[20]-

Pol:=’м’,’ж’-

God:integer-

end-

Var a : array[1..n] of uch-

I,k1,k2 :byte-

BEGIN

ClrScr-

K1:=0-k2:=0-

for i:=1 to n do

with a[I] do

begin

Writeln(‘Введите фио’)-

Readln(fio)-

Writeln(‘ Введите пол’)-

Readln(pol)-

If pol=’м’ then k1:=k1+1 else k2:=k2+1-

Writeln(‘ Введите год рождения’)-

Readln(god)-

End-

Writeln(‘Количество мальчиков’,k1)-

Writeln(‘Список мальчиков’)-

for i:=1 to n do

with a[I] do

if pol=’м’ then writeln(fio,’ ‘,god)-

Writeln(‘Количество девочек’,k2)-

Writeln(‘Список девочек’)-

for i:=1 to n do

with a[I] do

if pol=’ж’ then writeln(fio,’ ‘,god)-

Readln-

end.