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

Question

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

Answer 1

Var n:integer;
begin
readln(n);
if n>0 then writeln('Yes') else writeln('No');
end.