uses crt,dos;
var
 h,m,s,ms:word;
 st:string;

procedure add_int(var st:string; i:integer);
var
 tmp_st:string;
begin
 str(i,tmp_st);  
 if i<10 then insert('0',tmp_st,1);
 st:=st+tmp_st;
end;

begin
 clrscr;
 repeat
   st:='';
   gettime(h,m,s,ms);
   add_int(st,h);
   st:=st+':';
   add_int(st,m);
   st:=st+':';
   add_int(st,s);
   gotoxy(1,1);
   write(st);
 until keypressed;
end.

uses
 crt;
var
 st,tmp:string;
 ch:char;
 m,s:word;
 er:integer;
 b:boolean;

procedure add_int(var st:string; i:integer);
var
 tmp_st:string;
begin
 str(i,tmp_st);
 if i<10 then insert('0',tmp_st,1);
 st:=st+tmp_st;
end;

begin
 clrscr;
 writeln('Vvedite interval vremeni (59:59)');
 readln(st);
 val((st[1]+st[2]),m,er);
 val((st[4]+st[5]),s,er);
 clrscr;
 writeln(st);
 b:=false;
 repeat
   if b then begin
     delay(1000);
     st:='';
     if s=0 then begin
       if m<>0 then begin
         s:=60;
         m:=m-1;
       end
       else begin
         b:=false;
         writeln(^g);
       end;
     end;
     if b then begin
       s:=s-1;
       add_int(st,m);
       st:=st+':';
       add_int(st,s);
       gotoxy(1,1);
       write(st);
     end;
   end;
   if keypressed then begin
     ch:=readkey;
     if ch<>#0 then begin
       case ord(ch) of
       13: b:=true;
       32: b:=not(b);
       27: break;
       end;
     end
     else begin
       ch:=readkey;
       if ord(ch)=59 then begin
         clrscr;
         writeln('About:');
         writeln('Taymer. ver 1.01');
         writeln('This program was developed by Jahnerus');{Ne zabud6 eto ubrat6}
         writeln('Help:');
         writeln('Interval vremeni vvoditsya v formate mm:ss (mm-minutes, ss-seconds)');
         writeln('Upravlenie taymerom:');
         writeln('Enter ............ Start');
         writeln('Space ... Pause/Continue');
         writeln('Esc ............... Exit');
         writeln('F1 ................ Help');
         writeln('F2 .... Adjustment/Input');
         writeln('Najmite "Esc" dlya vozvrata');
         repeat
         until (keypressed) and (ord(readkey)=27);
         clrscr;
         if (m=0) and (s=0) then writeln('00:00')
         else writeln(st);
       end;
       if ord(ch)=60 then begin
         clrscr;
         writeln('Vvedite interval vremeni (59:59)');
         readln(st);
         val((st[1]+st[2]),m,er);
         val((st[4]+st[5]),s,er);
         b:=false;
         clrscr;
         writeln(st);
       end;    
     end;
   end;
 until false;
end.