program almaz uses windows messgaes var integer bebin GetTickCount Mes

1
2
3
4
5
6
7
8
9
program almaz;
uses windows, messgaes;
var
i: integer;
bebin
i:=GetTickCount();
MessageBoxA(0, Pchar(inttostr(i)), 'almaz.exe', MB_ICOMINFORMATION);
end.