Вкинозале имеется n рядов по m мест в каждом (m и n-константы). цена билета в первом ряду-1 рубль, в каждом следующем ряду в два раза дороже, чем в предыдущем. известно, что крайние места каждого ряда на 1 рублю дешевле остальных мест этого ряда. выведите таблицу с ценами билетов за каждое место (паскаль) можно простое решение

Var
  i,j,m,n,c:integer;
begin
  Write('Введите число рядов и число мест: ');
  Read(n,m);
  c:=1;
  Writeln('--- ЭКРАН ---');
  for i:=1 to n do begin
    Write(c-1:3);
    for j:=2 to m-1 do Write(c:3);
    Writeln(c-1:3);
    c:=c*2
    end
end.

Пример

Введите число рядов и число мест: 4 6
--- ЭКРАН ---
  0  1  1  1  1  0
  1  2  2  2  2  1
  3  4  4  4  4  3
  7  8  8  8  8  7