{* Нули по краям таблицы *}

Unit Z13;
Interface
Implementation
Begin
 writeln('Расположить по краям таблицы нули');
End.

Program z13;

Uses z13.pas; {* Эту строку можно удалить *}
{ Расположить по краям таб. нули }
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  a : Array [1..100, 1..100] Of longint;
  i : longint;
  j : longint;
  m : longint;
  n : longint;
Begin
  clrscr; {* Очищаем экран *}
  write('кол - во строк ');
  readln(m);
  write('кол - во столбцов ');
  readln(n);
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
    For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
    Begin
      write('a[', i, ', ', j, '] = ');
      readln(a[i, j]);
    End;
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
    a[i, 1] := 0;
  For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
    a[m, j] := 0;
  For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
    a[i, n] := 0;
  For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
    a[1, j] := 0;
  For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
  Begin
    writeln(' ');
    For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
      write('  ', a[i, j]);
  End;
  readln; {* Ждем подтверждения пользователя *}
End.