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.