fpcsrc/tests/webtbs/tw4999.pp


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

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.