Помогите с задачкой на Паскале, пожалуйста!!!

[larisap]

Не могу справиться: нужно написать программу рисования флага России. Помогите кто может, плиззз!

[Хыиуду]

setcolor(white);
bar(20,20,200,120);
setcolor(blue);
bar(20,120,200,220);
setcolor(red);
bar(20,220,200,320);

[larisap]

Огромное спасибо!!!

[larisap]

А можно написать целиком как должна программа выглядеть, для особо одаренных?.. а то не получается у меня ничего(((

[Хыиуду]

uses graph;
var q,q1:integer; {вот люблю я ку и ку-один почему-то в граф. приложениях}
begin
driver=detect;
initgraph(q,q1,''); {подразумевается, что самый крутой bgi-файл лежит либо в директории bgi, либо в той же папке, что и программа. Обычно это egavga.bgi, а сейчас вот разговоры пошли про vesa.bgi}
setcolor(white);
bar(20,20,200,120);
setcolor(blue);
bar(20,120,200,220);
setcolor(red);
bar(20,220,200,320);
readln;
closegraph;
end.

[larisap]

Очень-очень признательна! Вы меня просто спасли)))

[CADE]

Помогите прогу написать на паскале.Очень срочно.
Создать текст типа string. Определить самое короткое слово в каждом
предложении. Собрать их в новый текст, затем удлинить до средней длины
слова дублированием последней буквы.
Зарание спасибо!!!