Question

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

Answer 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.

Answer 2

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

Answer 3

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

Answer 4

Поменял

Answer 5

Спасибо