obs: tem que mostrar o nome da pessoa
Program Pzim ;
var soma,somam,somaf,anos,anos1,anos2,anos3,f,m,cont,idade,s:integer;
anosmaior,sexo,nome:string;
Begin
for cont:=1 to 2 do
begin
writeln('nome');
readln(nome);
writeln('idade');
readln(idade);
writeln('anos trabalhando');
readln(s);
writeln('sexo');
readln(sexo);
if sexo='f' then
begin
f:=1+f
end;
if sexo='m' then
begin
m:=1+m
end;
if (s>0) and (sexo='m') then
begin
anos:=1+anos
end;
if (s=0) and (sexo='m') then
begin
anos1:=1+anos1
end;
if (s>0) and (sexo='f') then
begin
anos2:=anos2+1
end;
if (s=0) and (sexo='f') then
begin
anos3:=anos3+1
end;
if sexo='f' then
begin
somaf:=idade+somaf
end;
if sexo='m' then
begin
somam:=idade+somam
end;
soma:=soma+idade
end;
writeln('1-',f);
writeln('2-',m);
writeln('3-',anos);
writeln('4-',anos1);
writeln('5-',anos2);
writeln('6-',anos3);
writeln('7-',anosmaior);
writeln('8-',soma);
writeln('9-',soma/2 :0:0);
writeln('10-',somaf/2 :0:0);
writeln('11-',somam/2 :0:));
End.