uses SysUtils, DateUtils;
const
COUNT = 10000000;
var
st, en : TDateTime;
pr, i, j : LongInt;
begin
st := Now;
for j := 1 to COUNT do begin
pr := 1;
for i := 15 to 25 do
pr := pr *i;
pr := pr shl 11
end;
en := Now;
WriteLn('for : ', MilliSecondsBetween(st, en));
st := Now;
for j := 1 to COUNT do begin
pr := 1;
i := 30;
while i <= 50 do begin
pr := pr*i;
Inc(i, 2)
end
end;
en := Now;
WriteLn('while : ', MilliSecondsBetween(st, en))
end.
dXNlcyBTeXNVdGlscywgRGF0ZVV0aWxzOwpjb25zdAogICAgQ09VTlQgPSAxMDAwMDAwMDsKdmFyCiAgICBzdCwgZW4gOiBURGF0ZVRpbWU7CiAgICBwciwgaSwgaiA6IExvbmdJbnQ7CmJlZ2luCiAgICBzdCA6PSBOb3c7CgogICAgZm9yIGogOj0gMSB0byBDT1VOVCBkbyBiZWdpbgogICAgICAgIHByIDo9IDE7CiAgICAgICAgICBmb3IgaSA6PSAxNSB0byAyNSBkbwogICAgICAgICAgICBwciA6PSBwciAqaTsKICAgICAgICBwciA6PSBwciBzaGwgMTEKICAgIGVuZDsKCiAgICBlbiA6PSBOb3c7CiAgICBXcml0ZUxuKCdmb3IgOiAnLCBNaWxsaVNlY29uZHNCZXR3ZWVuKHN0LCBlbikpOwoKICAgIHN0IDo9IE5vdzsKICAgIGZvciBqIDo9IDEgdG8gQ09VTlQgZG8gYmVnaW4KICAgICAgICBwciA6PSAxOwogICAgICAgIGkgOj0gMzA7CiAgICAgICAgd2hpbGUgaSA8PSA1MCBkbyBiZWdpbgogICAgICAgICAgICBwciA6PSBwcippOwogICAgICAgICAgICBJbmMoaSwgMikKICAgICAgICBlbmQKICAgIGVuZDsKICAgIGVuIDo9IE5vdzsKICAgIFdyaXRlTG4oJ3doaWxlIDogJywgTWlsbGlTZWNvbmRzQmV0d2VlbihzdCwgZW4pKQoKZW5kLg==