Модуль DOS. Текущее время с дискретностью 10 секунд. (Процедуру Delay - нельзя.)

uses CRT,dos;
var hour,min,sec,hund:word;
    k,h,o:integer;
    f:boolean;
procedure Vyvod;
begin
gotoXY(35,13);
if hour<10 then write('0',hour) else write(hour);
if min<10 then write(':0',min) else write(':',min);
if sec<10 then write(':0',sec) else write(':',sec);
gotoXY(80,25);
end;
begin
clrscr;
h:=10;
f:=true;
repeat
GetTime(hour,min,sec,hund);
if sec (mod h=0)and f then
 begin
  Vyvod;
  f:=false;
 end
else
 begin
  gotoXY(80,25);
  f:=true;
 end;
until keypressed;
end.

uses crt,utils;
var i:integer;
    t:datetime;
    f:boolean;
begin
hidecursor;
window(36,12,47,14);
textbackground(0);
clrscr;
f:=true;
repeat
t:=CurrentDateTime;
if (Milliseconds mod 10000=0)and f then
 begin
  clrscr;
  textcolor(10);
  gotoXY(3,2);
  if t.hour<10 then write('0',t.hour,':')
  else write(t.hour,':');
  if t.minute<10 then write('0',t.minute,':')
  else write(t.minute,':');
  if t.second<10 then write('0',t.second)
  else write(t.second);
  f:=false;
 end
else f:=true;
until keypressed;
end.