//Autor: Artur Czekalski (Sator)  www.epokaY.net/artur  artur@epokaY.net
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils, windows;
var
 czas: Cardinal;
 I: Integer;
 w: double = 1.0;
begin
 czas := GetTickCount;
 For i:=1 To 50000000 do
  w := sin(w) + w; //Inc(w, sin(w)) nie można
 czas := GetTickCount - czas;

 writeln('w=', w:0:20);
 writeln('Delphi7: Czas=', czas);
 readln;
end.