• Source
    1. program if2;
    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 if (a=0) then
    10. writeln(a,' = ',0)
    11. else
    12. writeln(a,' < ',0);
    13. end.