Вложенные рамки(подпрограммы) - Turbo Pascal

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

Нужно написать программу "Вложенные рамки". Т.е есть рамка, а внутри нее еще 5 рамок. (сейчас мы проходим тему параметры,процедуры,подпрограммы)

Решение задачи: «Вложенные рамки(подпрограммы)»

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

uses crt;
procedure ramka(x,y,w,h:byte);
var i:byte;
begin
gotoXY(x,y);
for i:=1 to w do write('*');
for i:=1 to h-2 do
 begin
  gotoXY(x,y+i);
  write('*');
  gotoXY(x+w-1,y+i);
  write('*');
 end;
gotoXY(x,y+h-1);
for i:=1 to w do
write('*');
end;
var x,y,w,h,i:byte;
begin
clrscr;
x:=2;
y:=2;
w:=78;
h:=23;
ramka(x,y,w,h);
for i:=1 to 5 do
 begin
  x:=x+3;
  y:=y+2;
  w:=w-6;
  h:=h-4;
  ramka(x,y,w,h);
 end;
readln
end.

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

В начале кода подключается библиотека crt.
Создается процедура ramka, которая принимает четыре параметра: x, y, w, h - все они типа byte.
Внутри процедуры используются вложенные циклы for для выполнения определенных действий.
Первый цикл for идет от 1 до w и выполняет следующую последовательность действий:
- gotoXY(x,y) - перемещает курсор в точку (x,y).
- write('') - выводит символ '' на экран.
- gotoXY(x+w-1,y+i) - перемещает курсор в точку (x+w-1,y+i).
- write('') - выводит символ '' на экран.
- gotoXY(x,y+h-1) - перемещает курсор в точку (x,y+h-1).
- write('') - выводит символ '' на экран.
Второй цикл for идет от 1 до 5 и выполняет следующую последовательность действий:
- x := x + 3 - увеличивается значение переменной x на 3.
- y := y + 2 - увеличивается значение переменной y на 2.
- w := w - 6 - уменьшается значение переменной w на 6.
- h := h - 4 - уменьшается значение переменной h на 4.
- ramka(x,y,w,h) - вызывается процедура ramka с новыми значениями x, y, w, h.
Конец программы. Вложенные рамки (подпрограммы) в этом коде не используются.