Нарисовать изображение - Pascal

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

Составить программу на Паскале, которая формирует на экране изображение:

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

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

uses graphabc;
var i,j:integer;
BEGIN
SetWindowSize (600,400);
For i:=20 to 40 do
Line (i*23-385,50,i*10,350);
Line (20*23-385,50,40*23-385,50);
Line (20*10,350,40*10,350);
FloodFill (295,250,clCyan);
FloodFill (5,5,clLightBlue);
END.

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

Объявление использования библиотеки graphabc.
Объявление переменных i и j типа integer.
Установка размеров окна графики (ширина 600, высота 400) с помощью функции SetWindowSize.
Цикл от 20 до 40 с шагом 1, в котором выполняется:
- Рисование линии от (i23-385,50) до (i10,350) с помощью функции Line.
Рисование линий для обрамления полученной фигуры:
- Линия от (2023-385,50) до (4023-385,50) через функцию Line.
- Линия от (2010,350) до (4010,350) через функцию Line.
Заливка области в цвет clCyan с координатами (295,250) с помощью функции FloodFill.
Заливка области в цвет clLightBlue с координатами (5,5) с помощью функции FloodFill.