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.