program sotrudniki;
type
sotrudniki=record
surname:string;
name:string;
age:byte;
data:integer;
plata:integer;
pol:char;
end;
var mas: array [1..25] of sotrudniki;
a,s,i:integer;
begin
write('a=');
read(a);
for i:=1 to a do
begin
write('vvedite familiy');
read(zap[i].surname);
write('vvedite imia');
read(zap[i].name);
write('vvedite vozrast');
read(zap[i].age);
write('vvedite god priniatia na raboty');
read(zap[i].data);
write('vvedite razmer zarabotnoi plati');
read(zap[i].plata);
write('vvedite pol');
read(zap[i].pol);
end;
writeln('surname','name','age','pla ta','pol');
for i:=1 to a do
begin
write(zap[i].surname:9);
write(zap[i].name:4);
write(zap[i].age:3);
write(zap[i].data:4);
write(zap[i].plata:6);
write(zap[i].pol:2);
writeln;
end;
for i:=1 to a do
begin
if zap[i].pol='z'then
s:=s+zap[i].plata;
end;
writeln('summa=',s);
end.