Проверить истинность высказывания: «Хотя бы одно из чисел A, B, C положительное» — Pascal(Паскаль)

Program Boolean13;

Var
  A, B, C: Integer;

Begin
  ReadLn(A, B, C);
  WriteLn((A > 0) Or (B > 0) Or (C > 0));

end.