procedure Timer;
begin

if timeall=0 then timeall:=gettickCount;
if timeNow=0 then timeNow:=gettickCount-timeall;
if timeNow>0 then
begin
timeall:=gettickCount;
sleep(1000);
timeNow:=timeNow+(gettickcount-timeall);
end;
writeln(timeNow);
//sleep(1);

end;