{* Задача 454 *}

Unit ZADACH454;
Interface
Implementation
Begin
 writeln('Дан двумерный массив А . Найти количество элементов больших 5 в последнем столбце матрицы.');
End.

Program zadach454;

Uses zadach454.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  n = 4;
  m = 4;
Var {* В работе нам потребуются переменные: *}
  a : Array [1..n, 1..m] Of integer;
  i : integer;
  j : integer;
  k : integer;
Begin
  k := 0;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
    For j := 1 To m Do {* Переменная j увеличивается с 1 до m *}
      read (a[i, j]);
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    If a[i, m] > 5 Then
      k := k + 1;
  End;
  writeln ('k=', k);
End.