Informatica

// sexo: m= masculino.. f= feminino.. o= outros..
// time: c= corinthians.. s= santos.. p= palmeiras.. t= são paulo..
Program Pesquisa;
Var resp, time, sexo: char;
Var totfc, totft, totfp, totfs: real; totmc, totmt, totmp, totms: real; totoc, totot, totop, totos: real; mul, hom, out: real; Begin resp:= 'S'; while (resp= 'S')or (resp='s') do Begin clrscr; writeln ('======SEXO======'); writeln; writeln ('FEMININO --- F'); writeln ('MASCULINO - M'); writeln ('OUTROS ----- O'); writeln; writeln ('Digite o Sexo'); readln (sexo); writeln ('======TIMES======'); writeln; writeln ('CORINTHIANS --- C'); writeln ('SÃO PAULO ----- T'); writeln ('PALMEIRAS ----- P'); writeln ('SANTOS -------- S'); writeln; writeln ('Digite o Time'); writeln; readln (time); if (sexo= 'f') and (time= 'c')then Begin totfc:=totfc+1; End; if (sexo= 'f')and (time= 't')then begin totft:=totft+1; end; if (sexo= 'f')and (time= 'P')then begin totfp:=totfp+1; end; if (sexo= 'f')and (time= 's')then begin totfs:=totfs+1; end; //homens if (sexo='m')and (time='c')then begin totmc:=totmc+1; end; if (sexo='m')and (time='t')then begin totmt:=totmt+1; end; if (sexo='m')and (time='p')then begin totmp:=totmp+1; end; if (sexo='m')and (time='s')then begin totms:=totms+1; end; //outros if (sexo='o')and (time='c')then begin totoc:=totoc+1; end; if (sexo='o')and (time='t')then begin totot:=totot+1; end; if (sexo='o')and (time='p')then begin totop:=totop+1; end; if (sexo='o')and (time='s')then begin totos:=totos+1; end; writeln ('----Continuar a Pesquisa S -----');