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.
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.