Program P5;
 { Eroare de depăşire semnalată în procesul execuţiei }
var x, y : integer;
begin
 x:=MaxInt;
 y:=x+1; { Eroare, y>MaxInt }
 writeln(y);
end.