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