Требуется использовать язык Паскаль Даны три целых числа 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.