tests/webtbs/tw0810.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

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.