Нарисовать кита - Pascal ABC (13182)

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

Здраствуйте. Сегодня должен сдать все работы, не хватает одной практической т.к не умею рисовать во всех проявлениях. Даже на командах в паскале. Сама суть задания нарисовать кита. Который самый последний на фото.

Решение задачи: «Нарисовать кита»

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

USES GraphABC;
BEGIN
SetWindowTitle('КИТ');
SetPenWidth(3);
SetWindowSize (500,500);
Arc (250,250,100,10,180);
Line (150,250,420,250);
Line (420,250,400,230);
Line (400,230,400,200);
Line (400,200,375,232);
Line (375,232,348,232);
FloodFill (250,230,clBlue);
Circle (230,190,10);
SetBrushColor (clBlack);
FillCircle (233,193,4);
SetBrushColor (clRed);
Arc (220,223,30,368,300);
SetBrushColor (clLightBlue);
END.

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

Импортируется библиотека GraphABC.
Устанавливается заголовок окна КИТ.
Устанавливается ширина пера в 3 единицы.
Устанавливается размер окна в 500x500 единиц.
Рисуется окружность с параметрами (250,250), радиус 100, высота 10, угол 180 градусов.
Рисуется линия с параметрами (150,250), (420,250), (400,230), (400,200), (375,232), (348,232).
Заполняется область цветом clBlue с помощью метода FloodFill.
Рисуется окружность с параметрами (230,190), радиус 10 единиц.
Устанавливается цвет кисти на черный.
Заполняется окружность цветом clRed с помощью метода FillCircle.
Рисуется окружность с параметрами (220,223), радиус 30 единиц, высота 368, угол 300 градусов.
Устанавливается цвет кисти на clLightBlue.