program dnev;
var
data: string;
d: integer;
i,w,h: integer;

procedure time(w,h:integer);
  begin
d:=GetCurrentTime;
 if GetWeekDay(d)=3 then
   begin
data:='ponedelnik, '+GetHour(d)+':'+GetMinute(d)+':'+GetSecond(d);
   end;
 if GetWeekDay(d)=4 then
   begin
data:='vtornik, '+GetHour(d)+':'+GetMinute(d)+':'+GetSecond(d);
   end;
 if GetWeekDay(d)=5 then
   begin
data:='sreda, '+GetHour(d)+':'+GetMinute(d)+':'+GetSecond(d);
   end;
 if GetWeekDay(d)=6 then
   begin
data:='chetverg, '+GetHour(d)+':'+GetMinute(d)+':'+GetSecond(d);
   end;
 if GetWeekDay(d)=7 then
   begin
data:='patnitsa, '+GetHour(d)+':'+GetMinute(d)+':'+GetSecond(d);
   end;
 if GetWeekDay(d)=1 then
   begin
data:='subota, '+GetHour(d)+':'+GetMinute(d)+':'+GetSecond(d);
   end;
 if GetWeekDay(d)=2 then
   begin
data:='voskresenie, '+GetHour(d)+':'+GetMinute(d)+':'+GetSecond(d);
   end;
drawText(data,w,h);
   end;

begin
SetFont(FONT_FACE_SYSTEM,FONT_STYLE_BOLD,FONT_SIZE_SMALL);

drawImage(loadImage('/zastavka.png'),0,0);
SetColor(0,255,255);
 
time(GetWidth/2-GetStringWidth(data)/2,30);

i:=1;
while i<200 do
begin
SetColor(255,255-i,255-i);
FillRect(20,180,i,20);
SetColor(255-i,0,i);
d:=i div 2;
drawText(' '+d+'%',110,183);
delay(30);
i:=i+1;
repaint;
end;
end.