Написать алгоритм рисунка со алгоритмом и циклами в кумире, кто разбирается

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
uses GraphABC;
begin
  Pen.Width:=3;
  // 0
  DrawRectangle(20,20,70,120);
  // 1
  Line(90,70,140,20);
  Line(140,20,140,120);
  // 2
  MoveTo(160,20);
  LineTo(210,20);
  LineTo(210,70);
  LineTo(160,120);
  LineTo(210,120);
  // 3
  MoveTo(230,20);
  LineTo(280,20);
  LineTo(230,70);
  LineTo(280,70);
  LineTo(230,120);
  // 4
  MoveTo(300,20);
  LineTo(300,70);
  LineTo(350,70);
  Line(350,20,350,120);
  // 5
  MoveTo(70,140);
  LineTo(20,140);
  LineTo(20,190);
  LineTo(70,190);
  LineTo(70,240);
  LineTo(20,240);
  // 6
  Line(90,190,140,140);
  DrawRectangle(90,190,140,240);
  // 7
  MoveTo(160,140);
  LineTo(210,140);
  LineTo(160,190);
  LineTo(160,240);
  // 8
  DrawRectangle(230,140,280,240);
  Line(230,190,280,190);
  // 9
  DrawRectangle(300,140,350,190);
  Line(350,190,300,240)
end.

#include <iostream>

int gg(int k, int p, double m)

{

p = (k >= p) ? p : p / k;

return (m * 2 * p);

}

int main()

{

int k, p;

double m;

std::cout << "Сколько котлет можно одновременно положить на сковороду ? ";

std::cin >> k;

std::cout << "Сколько минут жарится одна сторона котлеты ? ";

std::cin >> m;

std::cout << "Сколько котлет вы будете жарить ? ";

std::cin >> p;

std::cout << p << " котлет пожарятся с двух сторон минимум за " << gg(k, p, m) << " минут";

}