Составьте программу, которая будет определять является ли введёное число положительно, при x=5,x=-7,x=0.

 program z1;
var x:integer;
begin
writeln('введите Х');
readln(X);
if x>0 then writeln('число положительное') else writeln('число не положительное');
end.