Помогите пожалуйста!! Задача по паскалю!
введите три числа a, b, с. определите количество положительных чисел в данном наборе

var  a, b, c: real;  n: integer;begin  Write('Введите через пробел три числа: ');  Readln(a, b, c);  if a > 0 then n := 1 else n := 0;  if b > 0 then n := n + 1;  if c > 0 then n := n + 1;  Writeln('Положительных чисел- ', n)end.Тестовое решение:Введите через пробел три числа: -3.54 2.16 4Положительных чисел- 2