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

Program abc;vara,b,c: real;k: integer;beginwriteln(\'Введите числа 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\');readlnend.