Ввести с клавиатуры число является ли оно положительным

program zz1;

var n:integer; / / задаем переменную целого типа

begin

write ('введите заданное число n ');

read (n); / / вводим заданное число с клавиатуры

if n>0 / / проверяем, если заданное число больше нуля, то выводим один ответ, если нет, то другой

then write ('заданное число является положительным ') else write ('заданное число не является положительным '); / / выводим ответ

end.