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