fpc/tests/webtbs/tw15633.pp
2022-01-15 22:30:25 +01:00

10 lines
132 B
ObjectPascal

var value : word;
code : Longint;
begin
Val('4294901772', Value, code);
writeln(code);
if code<>6 then
halt(1);
end.