Требуется использовать язык Паскаль Даны три целых числа A, B, C. Значения чисел вводятся с клавиатуры. Определить количество нулей среди данных чисел. Результат вывести на экран.

Program abc;

var

a, b, c: real;

k: integer;

begin

writeln ('Введите числа a, b, c:');

readln (a, b, c);

if a=0 then

if b=0 then

if c=0 then writeln ('3') else writeln ('2')

else if c=0 then writeln ('2') else writeln ('1')

else if b=0 then if c=0 then writeln ('2') else writeln ('1')

else if c=0 then writeln ('1') else writeln ('0');

readln

end.