Нарисовать флаг Финляндии - Turbo Pascal

Формулировка задачи:

На турбо паскале можно и во freepascal, если уж совсем никак то в абс.нет. Главное чтобы работало и было максимально похоже.

Решение задачи: «Нарисовать флаг Финляндии»

Листинг программы

uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
{сделаем белый фон}
setfillstyle(1,15);
bar(0,0,2*x,2*y);
{нарисуем светло-синий крест}
setfillstyle(1,9);
bar(x-200,y-50,x+200,y+50);
bar(x-150,y-200,x-50,y+200);
{нарисуем темно-синюю окружность}
setcolor(1);
circle(x,y,200);
{изменим фон вне окружности на серый}
setfillstyle(1,7);
floodfill(5,5,1);
{вернем ему белый цвет}
setfillstyle(1,15);
floodfill(5,5,1);
readln
end.

Объяснение кода листинга программы

Используется графический модуль graph.
Задаются начальные координаты x и y.
Устанавливается начальный цвет и стиль заполнения.
Рисуется прямоугольник с размерами 2x, 2y, начиная с координат (0,0), чтобы создать белый фон.
Устанавливается светло-синий цвет и стиль заполнения.
Рисуется прямоугольник с размерами 2(x-200), 2(y-50), начиная с координат (x-200,y-50), чтобы создать светло-синий крест.
Рисуется прямоугольник с размерами 2(x-150), 2(y-200), начиная с координат (x-150,y-200), чтобы создать светло-синий крест.
Устанавливается темно-синий цвет и стиль заполнения.
Рисуется окружность с радиусом 200, начиная с координат (x,y), чтобы создать темно-синюю окружность.
Устанавливается серый цвет и стиль заполнения.
Используется функция floodfill для изменения цвета фона вне окружности на серый.
Восстанавливается белый цвет и стиль заполнения.
Программа ожидает ввода от пользователя.