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

var
    A, B, C: integer;
begin
    write('Введите A, B и C: ');
    read(A, B, C);
    writeln('Каждое из чисел A, B, C положительное - ',(A > 0) and (B > 0) and (C > 0));
end.

Leave a Comment