mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 03:28:02 +02:00
14 lines
170 B
ObjectPascal
14 lines
170 B
ObjectPascal
program bug;
|
|
var i:byte;
|
|
e:extended;
|
|
s:string;
|
|
begin
|
|
e:=103; (*1003,100003,1000003*)
|
|
for i:=0 to 17 do
|
|
begin
|
|
str(e:0:i,s);
|
|
writeln(s);
|
|
end;
|
|
|
|
end.
|