3. Напишите процедуру с параметрами w (ширина), h (высота), a (символ), выводящую на экран «прямоугольник» из символов a, ширина которого равна w, а высота — h.

Вариант на языке Pascal:

procedure PrintRectangle(w, h: integer; a: char);
var
  i, j: integer;
begin
  for i := 1 to h do
  begin
    for j := 1 to w do
      write(a);
    writeln;
  end;
end;

Внешний цикл выводит h строк, а внутренний — по w символов в каждой строке.