Напишите процедуру, которая принимает один параметр – натуральное число N, – и выводит на экран прямоугольник длиной N и высотой 3 символа.

при запуске от N = 1****

Так задумано?

Поменял

Спасибо

procedure Rectangle(Width: integer);var i: integer;begin  for i := 1 to Width do write('*');  writeln;  if width <> 1 then write('*');  writeln('*':Width-1);  for i := 1 to Width do write('*');end;var  N: integer;begin  write('N = ');  readln(N);  Rectangle(N);end.