Saat programı

uses crt;
var
saat,dakika,saniye,salise:integer;
begin
clrscr;
writeln('13.11.2006');
for saat:=15 to 23 do
for dakika:=45 to 59 do
for saniye:=0 to 59 do
for salise:=0 to 59 do
begin
gotoxy(5,10);
delay(10);
writeln(saat,':',dakika,':',saniye,':',salise,':');
end;

readln;
end.


Linkback: https://www.buyuknet.com/saat-programi-t8614.0.html