Pomoc w ustaleniu wartosci aby wyszedl zegar cyfrowy z jakas godzina PASCAL

[vatt]

Witam

 

Mam narysowac godzine w pascalu. Tylko nie zabardzo wiem jakie mam wartosci przyjać aby powstala jaka kolwiek godzina np 10:10 lub cos w tym stylu,

po prostu tego nie widze, probowalem wiele razy ale mi nie wychodzi

 

program linie;

uses crt,graph;

var sterownik,tryb:integer;

procedure inicjacja;

begin

detectgraph(sterownik,tryb);

initgraph(sterownik,tryb,'c:\...\bgi\');

end;

procedure linie;

begin

line(xxx,xxx,xxx,xxx);

line(xxx,xxx,xxx,xxx);

line(xxx,xxx,xxx,xxx);

line(xxx,xxx,xxx,xxx);

line(xxx,xxx,xxx,xxx);

end;

begin

inicjacja;

linie;

readkey;

closegraph;

end.

 

jakie wartosci mam wpisac aby wyszla jakas godzina np 15:40 lub cos w tym stylu?

 

Prosze o pomoc!

PozdrawiamWesoły