Нарисовать рыбу из простейших фигур - Turbo Pascal

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

Нужно было решить задание: нарисовать рыбу из простейших фигур в паскале. Сначала я решила поискать в интернете,но, увы, ничего подходящего не нашла. Пришлось делать самой. В итоге получился простенький рисунок, может кому-то понадобится

Program L7Ryba;
  uses graph,crt;
var gd,gm:integer;
  begin
  clrscr;
   gd:=detect;
  initgraph(gd,gm,'');
  begin
  SetFillStyle(1,14);
  Setbkcolor(9);
  Setcolor(1);
  SetLineStyle(0,0,3);
 Ellipse(110,170,30,30,100,30);
 Line(210,170,280,220);
 Line(210,170,280,120);
 Line(280,220,280,120);
 Line(100,200,200,210);
 Line(200,210,200,185);
 Line(50,145,100,120);
 Line(100,120,100,140);
 Setcolor(4);
 Circle(35,160,3);
 Setcolor(1);
 Line(10,170,20,168);
  readln;
  CloseGraph;
  end;
  end.

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

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

uses graph;
var
  gd,gm:integer;
begin
  gd:=detect;
  initgraph(gd,gm,'');
 Setbkcolor(9);
  Setcolor(1);
  SetLineStyle(0,0,3);
  line(100,200,200,250);
  line(100,200,200,150);
  line(180,240,180,160);
  line(180,200,200,170);
  line(180,200,200,230);
  line(200,170,200,230);
  circle(110,200,3);
  readln;
  CloseGraph;
end.

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

Импортируется библиотека graph.
Объявляются две переменные типа integer: gd и gm, которые будут использоваться для работы с графиком.
Вызывается функция detect, которая предположительно определяет, поддерживает ли система графический вывод.
Вызывается функция initgraph, которая инициализирует графический вывод с помощью переданных ей параметров: gd и gm, а также пустой строкой в качестве параметра screen.
С помощью функции Setbkcolor устанавливается цвет фона графика на 9.
С помощью функции Setcolor устанавливается цвет линии на 1.
С помощью функции SetLineStyle устанавливается стиль линии на 0, 0, 3 (толстая линия).
С помощью функции line рисуется первая линия с координатами (100,200) и (200,250).
С помощью функции line рисуется вторая линия с координатами (100,200) и (200,150).
С помощью функции line рисуется третья линия с координатами (180,240) и (180,160).
С помощью функции line рисуется четвертая линия с координатами (180,200) и (200,170).
С помощью функции line рисуется пятая линия с координатами (180,200) и (200,230).
С помощью функции line рисуется шестая линия с координатами (200,170) и (200,230).
С помощью функции circle рисуется окружность с координатами (110,200,3).
Выводится команда readln, которая ожидает ввода пользователя.
Вызывается функция CloseGraph, которая закрывает графический вывод.