Составить программу на языке pascal: даны числа а,в,с. найти количество положительных чисел среди них.

Program ABC;var A,B,C:real;beginwrite('Введите три числа ');read (A,B,C);if A>0 then writeln (A,' положительное');if B>0 then writeln (B,' положительное');if C>0 then writeln (C,' положительное');end.