Нарисовать рыбу - PascalABC.NET

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

Добрый день, помогите пожалуйста нарисовать в паскале рисунки как на картинках:

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

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

uses graphABC;
var x,y,d:integer;
begin
setpenwidth(3);
x:=windowwidth div 2;
y:=windowheight div 2;
d:=y-10;
rectangle(x-d,y-d,x+d,y+d);
setbrushcolor(bsSolid);
circle(x,y,d);
setpencolor(clWhite);
moveto(x-d,y);
lineto(x,y-d);
lineto(x+d,y);
lineto(x,y+d);
lineto(x-d,y);
floodfill(x,y,clWhite)
end.

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

uses graphABC; - Импортирует модуль для работы с графикой
var x,y,d:integer; - Объявляет три переменные типа integer для хранения координат и размера рыбы
x:=windowwidth div 2; - Задает значение переменной x как середину ширины окна
y:=windowheight div 2; - Задает значение переменной y как середину высоты окна
d:=y-10; - Задает значение переменной d как разницу между y и 10 (высота рыбы)
rectangle(x-d,y-d,x+d,y+d); - Рисует прямоугольник (тело рыбы)
setbrushcolor(bsSolid); - Задает цвет кисти как сплошной (цвет тела рыбы)
circle(x,y,d); - Рисует окружность (голова рыбы)
setpencolor(clWhite); - Задает цвет пера как белый (для контура рыбы)
moveto(x-d,y); - Перемещает перо в начальную точку для рисования контура рыбы
lineto(x,y-d); - Рисует отрезок до головы рыбы
lineto(x+d,y); - Рисует отрезок до хвоста рыбы
lineto(x,y+d); - Рисует отрезок до верхней части головы рыбы
lineto(x-d,y); - Замыкает контур рыбы, возвращаясь в начальную точку
floodfill(x,y,clWhite) - Заливает область под рыбой белым цветом (для создания эффекта заполнения)