Program P27;
 { Eroare }
var i : integer;
    x : real;
begin
 i:=1; x:=1.0;
 writeln(ord(i));
 writeln(ord(x));
 writeln(pred(i));
 writeln(pred(x));
 writeln(succ(i));
 writeln(succ(x));
end.