Определить количество положительных чисел из 2 чисел, вводимых с клавиатуры

var

 a, b: Real;

 c : Integer;

begin

 Write ('A, B = ');

 ReadLn (a, b);

 c := 0;

 if a > 0 then

   Inc (c);

 if b > 0 then

   Inc (c);

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

 ReadLn;

end.