АЖ
Алексей Жулёв
помогите с останвкой таймера
Написал программу часы, к ним нужно прибавить команду которая могла бы остановить время на определнный период который я мог бы задать из программы
сама прога
uses Crt;
begin
var h,m,s,b:integer;
writeln ( 'часы',' ');
readln(h,m,s);
h:=h;
m:=m;
repeat // цикл секунд
delay (1000);
GotoXY(10,10);
s:=s+1;
if (s = 60) then begin m := m + 1;
if (m = 60) then begin h := h +1;
if (h = 24) then begin h :=0; end;
m:= 0; end; s := 0; end;
writeln (h,':',m,':',s,' ');
until s>59;
end.
помогите советами
мне нужен именно pascal abc