Подсчитать количество положительных среди чисел а, b, с — Pascal(Паскаль)

Program Test;
Uses Crt;
Var
  A,B,C:integer;
  Res:integer;
BEGIN
  writeln('Input A,B,C');
  readln(A,B,C);
  Res:=ord(A>0)+ord(B>0)+ord(C>0);
  Write('Result= ',Res);
  repeat
  until KeyPressed
END.