program dnev;
var
result: string;
i: integer;
function time(d:integer):string;
  begin
 if GetWeekDay(d)=3 then result:='ponedelnik';
 if GetWeekDay(d)=4 then result:='vtornik';
 if GetWeekDay(d)=5 then result:='sreda';
 if GetWeekDay(d)=6 then result:='chetverg';
 if GetWeekDay(d)=7 then result:='patnitsa';
 if GetWeekDay(d)=1 then result:='subota';
 if GetWeekDay(d)=2 then result:='voskresenie';
  end;
begin
SetFont(FONT_FACE_SYSTEM,FONT_STYLE_BOLD,FONT_SIZE_SMALL);
drawImage(loadImage('/zastavka.png'),0,0);
SetColor(0,255,255);
drawText(time(GetCurrentTime)+', '+GetHour(GetCurrentTime)+':'+GetMinute(GetCurrentTime)+':'+GetSecond(GetCurrentTime),10,30);
i:=1;
while i<200 do
begin
SetColor(255,255-i,255-i);
FillRect(20,180,i,20);
SetColor(255-i,0,i);
drawText(' '+i div 2+'%',110,183);
delay(30);
i:=i+1;
repaint;
end;
end.