Помогите решить задачи по Паскалю Рисуэмо прапора

[Vladislav_87]

Рисуэмо прапора. Нарисувати дво- або триколірний прапор деякої держави на свій вибір України тощо. Реалізувати динамічний ефект підняття прапора на щоглу.

[AlDelta]

В чем проблема? Сам пытался сделать хоть что-нибудь, хотя бы без динамики?

[Vladislav_87]

Рисовать флага. Рисовать дво- или трехцветный флаг некоторого государства на свой выбор Украины и тому подобное. Реализовать динамический эффект поднятия флага на мачту.

[Vladislav_87]

Сообщение от AlDelta

AlDelta => АльДельтa
Vladislav_87, показывай что получилось из самостоятельной работы.

Stilet - исправить ошибку в задаче и проверки!


program zad_25;
uses Crt,Graph;
var driver,mode:integer;
begin
writeln;
driver:=detect;
initgraph(driver,mode,'');
setbkcolor(0);
setcolor(3);
rectangle(100,0,300,200);
setfillstyle(1,3);
floodfill(200,100,3);
setcolor(14);
circle(200,100,100);
setfillstyle(1,14);
floodfill(200,100,14);
setcolor(0);
circle(200,100,100);
settextstyle(0,0,3);outtextxy(115,9 5,'Ukraine'); readln
end.