Составить программу на языке 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.