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

Program Boolean12;

Var
  A, B, C: Integer;

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

end.