unit Wait;

interface
	procedure wait (n: longint);

implementation

	procedure wait (n: longint);
		var
			t: longint;
	begin
		t := tickcount;
		repeat
		until tickcount > t + n;
	end;
end.