fpc/tests/tbs/tbs0115.pp

var
   c : comp;

begin
   c:=1234;
   writeln(c);
   {readln(c);}
   c:=-258674;
   writeln(c);
end.