var
  t, i, a, b, success: Integer;

begin
  WriteLn('Starting!');
  t := GetSystemTime;
  a := 1594;
  for i := 0 to 10000000 do
  begin
    b := a;
    b := (b + (a * 2));
    b := (b - (a * 2));
    if (b = a) then
      Inc(success);
  end;
  WriteLn('time = ' + IntToStr(GetSystemTime - t));
  WriteLn('Success  = ' + IntToStr(success));
end.