Question

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

Answer 1

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