• Source
    1. program if1;
    2. var
    3. a:integer;
    4. begin
    5. writeln('Give a :');
    6. readln(a);
    7. if(a>0) then
    8. writeln(a,' > ',0)
    9. else
    10. writeln(a,'<=',0);
    11. end.