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 * 2*i;
    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.

dXNlcyBTeXNVdGlscywgRGF0ZVV0aWxzOwpjb25zdAogICAgQ09VTlQgPSAxMDAwMDAwMDsKdmFyCiAgICBzdCwgZW4gOiBURGF0ZVRpbWU7CiAgICBwciwgaSwgaiA6IExvbmdJbnQ7CmJlZ2luCiAgICBzdCA6PSBOb3c7CgogICAgZm9yIGogOj0gMSB0byBDT1VOVCBkbyBiZWdpbgogICAgICAgIHByIDo9IDE7CiAgICAgICAgICBmb3IgaSA6PSAxNSB0byAyNSBkbwogICAgICAgICAgICBwciA6PSBwciAqIDIqaTsKICAgIGVuZDsKCiAgICBlbiA6PSBOb3c7CiAgICBXcml0ZUxuKCdmb3IgOiAnLCBNaWxsaVNlY29uZHNCZXR3ZWVuKHN0LCBlbikpOwoKICAgIHN0IDo9IE5vdzsKICAgIGZvciBqIDo9IDEgdG8gQ09VTlQgZG8gYmVnaW4KICAgICAgICBwciA6PSAxOwogICAgICAgIGkgOj0gMzA7CiAgICAgICAgd2hpbGUgaSA8PSA1MCBkbyBiZWdpbgogICAgICAgICAgICBwciA6PSBwcippOwogICAgICAgICAgICBJbmMoaSwgMikKICAgICAgICBlbmQKICAgIGVuZDsKICAgIGVuIDo9IE5vdzsKICAgIFdyaXRlTG4oJ3doaWxlIDogJywgTWlsbGlTZWNvbmRzQmV0d2VlbihzdCwgZW4pKQoKZW5kLg==