Pesquisa de Audiencia de tv

program pesquisaaudiencia;
var
c4tvs:integer;{quantidade de tvs ligadas no canal 4}
c12tvs:integer;{quantidade de tvs ligadas no canal 12}
c71tvs:integer; {quantidade de tvs ligadas no canal 71}
c33tvs:integer; {quantidade de tvs ligadas no canal 33}

c4pessoas:integer;{quantidade de pessoas assistindo o canal 4}

c12pessoas:integer;{quantidade de pessoas assistindo o canal 12}
c71pessoas:integer;{quantidade de pessoas assistindo o canal 71}
c33pessoas:integer; {quantidade de pessoas assistindo o canal 33}

canaltv: integer; {canal assistido no local}
pessoas:integer; {numero de pessoas assistindo tv no local}
Somatvs:integer;{soma das tvs ligadas no canal 4 e canal 12}
Somapessoas:integer;{soma das pessoas assistindo canal 4 e canal 12}

Porcpessoasc4, Porctvsc4, Porcpessoasc12, Porctvsc12, Porcpessoasc33, Porctvsc33, Porcpessoasc71, Porctvsc71 : real; {porcentagens canal 4,12,33,71}

begin
c4tvs:= 0; {quantidade de tvs ligadas no canal 4}
c12tvs:= 0; {quantidade de tvs ligadas no canal 12}

c71tvs:=0; {quantidade de tvs ligadas no canal 71}
c33tvs:=0; {quantidade de tvs ligadas no canal 33}

c4pessoas:= 0; {quantidade de pessoas assistindo o canal 4}

c12pessoas:= 0; {quantidade de pessoas assistindo o canal 12}
c71pessoas:=0; {quantidade de pessoas assistindo o canal 71}
c33pessoas:=0; {quantidade de pessoas assistindo o canal 33}

write ('forneça o numero do canal');
readln(canaltv); {obtem o canal}

while (canaltv <> 0) do
begin
write ('forneça o numero de pessoas assistindo o canal');
readln(pessoas);{obtem o numero de pessoas que assistem o canal}

if (canaltv = 4) {é canal 4?}

then
begin
c4tvs:=c4tvs+1; {acumula tvs canal 4}
c4pessoas:=c4pessoas+pessoas;{acumula pessoas canal 4}
end
else

begin
if (canaltv=12) {é canal 12?}

then
begin
c12tvs:=c12tvs+1; {acumula tvs canal 12}
c12pessoas:=c12pessoas+pessoas;{acumula pessoas canal 12}
end

else
begin
if (canaltv=71) {é canal 71?}
then
begin
c71tvs:=c71tvs +1;
c71pessoas:=c71pessoas + pessoas;
end
else
begin
if (canaltv=33){é canal 33?}
then
begin
c33tvs:=c33tvs +1;
c33pessoas:=c33pessoas +pessoas;
end
else
begin
writeln('Os canais da pesquisa sao 4,12,71 e 33'); {Se não for algum dos canais em questão}
end
end
end

end;
writeln('forneça outro numero do canal(0 para encerrar)');
readln(canaltv); {obtem outro canal}
end;

{Calcula as porcentagens}

if ((c4tvs=0) and (c12tvs=0) and (c71tvs=0) and (c33tvs=0)) or ((c4pessoas=0) and (c12pessoas=0) and (c71pessoas=0) and (c33pessoas=0))

then
begin
writeln('Erro: não faz divisão por zero');
end
else

if (canaltv = 4) or (canaltv = 12) or (canaltv = 71) or (canaltv =33) or (canaltv=0)
then
begin
Somapessoas:= c4pessoas+c12pessoas+

c71pessoas+c33pessoas;
Somatvs:= c4tvs+c12tvs+c71tvs+c33tvs;

Porcpessoasc4:= (c4pessoas/Somapessoas)*100;
Porcpessoasc12:= (c12pessoas/Somapessoas)*100;

Porcpessoasc71:=(c71pessoas/Somapessoas)*100;
Porcpessoasc33:=(c33pessoas/Somapessoas)*100;

Porctvsc4:= (c4tvs/Somatvs)*100;
Porctvsc12:= (c12tvs/Somatvs)*100;

Porctvsc71:=(c71tvs/Somatvs)*100;
Porctvsc33:=(c33tvs/Somatvs)*100;

{Mostra as porcentagens}
writeln('% de tvs ligadas no canal 4',Porctvsc4);
writeln('% de pessoas assistindo o canal 4',Porcpessoasc4);
writeln('% de tvs ligadas no canal 12',Porctvsc12);
writeln('% de pessoas assistindo o canal 12',Porcpessoasc12);

writeln('% de tvs ligadas no canal 71',Porctvsc71);
writeln('% de pessoas assistindo o canal 71',Porcpessoasc71);
writeln('% de tvs ligadas no canal 33',Porctvsc33);
writeln('% de pessoas assistindo o canal 33',Porcpessoasc33);
end
end.