08.01.2011, 22:57
|
#7 (permalink)
|
Бэтмен-любитель
Регистрация: 22.09.2010
Сообщений: 227
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 149
|
uses crt;
var min,sec:integer;
begin
clrscr;
for min :=1 to 3 do
begin
for sec:=1 to 60 do
begin
delay(1000);
gotoXY(1,1) ;
write (min,':',sec,'') ;
if keypressed then halt
end;
end;
end.
|
|
|