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

program zz1;
var n:integer; // задаем переменную целого типа
begin
write(введите данное число n );
read(n); // вводим заданное число с клавиатуры
if ngt;0 // проверяем, если заданное число больше нуля, то выводим один ответ, если нет, то другой
then write (данное число является положительным ) else write(данное число не является положительным ); // выводим ответ
end.