program t09; var x : integer ; begin x := 0 ; if x > 0 then writeln ('pos') else writeln ('nonpos') ; x := 5 ; if x > 0 then writeln ('pos') else writeln ('nonpos') ; x := 5 ; if x >= 5 then writeln ('ge') else writeln ('lt') end.
