N=n+1 в паскале это возможно?, при каком n это будет справедливо Опции

[ranger]

Люди пожалуйста подскажите как решить:
Найти "n" при котором будет справедливо n=n+1 ???

[hiv]

Только так:

var n:set of byte;
begin
n:=[1];
if n=n+[1] then writeln('Справедливо!') else writeln('Несправедливо.');
end.

[Lapp]

А еще можно так..

var
  n:real;

begin
  n:=10e20;
  if n=n+1 then write('Yes!')
end.

[Michael_Rybak]

а еще так

var i: integer;
function n: integer;
begin
  dec(i);
  n := i;
end;
...

[Lapp]

а еще так

var i: integer;
function n: integer;
begin
  dec(i);
  n := i;
end;
...

Красиво!!