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 := 30 to 50 do
            if i mod 2 = 0 then
                pr := pr*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.

dXNlcyBTeXNVdGlscywgRGF0ZVV0aWxzOwpjb25zdAogICAgQ09VTlQgPSAxMDAwMDAwMDsKdmFyCiAgICBzdCwgZW4gOiBURGF0ZVRpbWU7CiAgICBwciwgaSwgaiA6IExvbmdJbnQ7CmJlZ2luCiAgICBzdCA6PSBOb3c7CgogICAgZm9yIGogOj0gMSB0byBDT1VOVCBkbyBiZWdpbgogICAgICAgIHByIDo9IDE7CiAgICAgICAgICBmb3IgaSA6PSAzMCB0byA1MCBkbwogICAgICAgICAgICBpZiBpIG1vZCAyID0gMCB0aGVuCiAgICAgICAgICAgICAgICBwciA6PSBwcippOwogICAgZW5kOwoKICAgIGVuIDo9IE5vdzsKICAgIFdyaXRlTG4oJ2ZvciA6ICcsIE1pbGxpU2Vjb25kc0JldHdlZW4oc3QsIGVuKSk7CgogICAgc3QgOj0gTm93OwogICAgZm9yIGogOj0gMSB0byBDT1VOVCBkbyBiZWdpbgogICAgICAgIHByIDo9IDE7CiAgICAgICAgaSA6PSAzMDsKICAgICAgICB3aGlsZSBpIDw9IDUwIGRvIGJlZ2luCiAgICAgICAgICAgIHByIDo9IHByKmk7CiAgICAgICAgICAgIEluYyhpLCAyKQogICAgICAgIGVuZAogICAgZW5kOwogICAgZW4gOj0gTm93OwogICAgV3JpdGVMbignd2hpbGUgOiAnLCBNaWxsaVNlY29uZHNCZXR3ZWVuKHN0LCBlbikpCgplbmQu