Untitled

program DrawNumber;

var
  digit, width, height: integer;

procedure DrawOne;
var
  i, j: integer;
begin
  for i := 1 to height do
  begin
    for j := 1 to width do
    begin
      if j = (width + 1) div 2 then
        write('*')
      else
        write(' ');
    end;
    writeln;
  end;
end;

procedure DrawTwo;
var
  i, j: integer;
begin
  for i := 1 to height do
  begin
    for j := 1 to width do
    begin
      if (j = 1) or (j = width) or ((i = 1) and (j <= width div 2)) or
        ((i = height) and (j >= width div 2 + 1)) or
        (i = (height + 1) div 2) then
        write('*')
      else
        write(' ');
    end;
    writeln;
  end;
end;

// Добавьте аналогичные процедуры для других цифр

begin
  writeln('Введите желаемую цифру (от 1 до 9): ');
  readln(digit);

  writeln('Введите ширину: ');
  readln(width);

  writeln('Введите высоту: ');
  readln(height);

  case digit of
    1: DrawOne;
    2: DrawTwo;
    // Добавьте аналогичные case для других цифр
  else
    writeln('Неверный ввод. Введите число от 1 до 9.');
  end;
end.