Проверьте пожалуйста Опции

[goosberry]

Задача: в последовательности четырёх чисел, заданных с клавиатуры, найти количество нулей.
У меня получилась такая вот программка, только какая-то она примитивная...

program zadacha;
uses crt;
var a,b,c,d:real;
i:integer;
begin clrscr;
i:=0;
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln©;
write('d=');
readln(d);
if a=0 then i:=i+1;
if b=0 then i:=i+1;
if c=0 then i:=i+1;
if d=0 then i:=i+1;
writeln ('Количество нулей = ',i);
readkey;
end. 

М

Просьба использовать тэги [cоde=pas] ... [/cоde] для паскалевского кода. Исправлено. Lapp