fpc/tests/webtbs/tw4999.pp
2006-07-06 13:19:48 +00:00

13 lines
193 B
ObjectPascal

program fpc203fish;
{$mode objfpc}{$H+}
uses Classes;
var s:String;
i:integer;
begin
s:='123123sdfjkysdjfklsdn3m,w45';
for i:=0 to 15 do begin
s:=s+s;
writeln(i);
end;
end.