Составить программу на языке Pascal: Даны числа а,в,с. Найти количество положительных чисел среди них.
https://znanija.com/task/22025749
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.
Ой, сорян
....
После каждой точки с запятой нажми ENTER