Verified answer

Ответ:

program ExampleN;

var

 a, b, c: Real;

 k: Integer;

begin

 WriteLn ('Введете три числа: ');

 ReadLn (a, b, c);

 k := 0;

 if a > 0 then

   Inc (k);

 if b > 0 then

   Inc (k);

 if c > 0 then

   Inc (k);

 WriteLn ('Количество положительных чисел = ', k);

 ReadLn;

end.