Решение задач по теме "Логические выражения в Pascal"

Дано целое число A. Проверить истинность высказывания: "Число A является положительным".

program one;
var
   A:integer;
   Rezultat:boolean;
begin
   write('A = ');
   readln(A);
   Rezultat:=A>0;
   write(Rezultat);
end.

Назад