Code:
procedure vrijeme;
var sat,min,sek,br:word;
begin
window (70,1,80,1);
textbackground (black);
gettime(sat,min,sek,br);
repeat
inc(sek,1);
gotoxy (70,1);
write (sat,':',min);
delay (1000);
if sek=60 then
begin
sek:=0;
inc(min,1);
end;
if min=60 then
begin
min:=0;
inc(sat,1);
end;
until keypressed; {ovdje ce naravno biti neki drugi uslov}
end;
procedure vrijeme;
var sat,min,sek,br:word;
begin
window (70,1,80,1);
textbackground (black);
gettime(sat,min,sek,br);
repeat
inc(sek,1);
gotoxy (70,1);
write (sat,':',min);
delay (1000);
if sek=60 then
begin
sek:=0;
inc(min,1);
end;
if min=60 then
begin
min:=0;
inc(sat,1);
end;
until keypressed; {ovdje ce naravno biti neki drugi uslov}
end;
(ovo pisem iz glave, pa mozda ima koja greska)