program dnev;
var
data: string;
d: integer;
week: integer;
begin
while true do
begin
drawImage(loadImage('/zastavka.png'),0,0);
SetColor(0,255,255);
d:=GetCurrentTime;
data:='Segodna vtornik, '+GetHour(d)+':'+GetMinute(d)+':'+GetSecond(d);
drawText(data,GetWidth/2-GetStringWidth(data)/2,40);
SetColor(255,0,0);
week:=GetWeekDay(d);
drawText(''+week,110,200);
repaint;
end;
end.