{* Задача 305 *}

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

Program pas13527;

Uses zadach305.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  k   : integer;
  n   : integer;
  i   : integer;
  j   : integer;
  l   : integer;
  t   : real;
  max : real;
  a   : Array [1..50] Of Array [1..50] Of integer;
Begin
  clrscr; {* Очистка экрана *}
  randomize;
  write('ВВедите K: ');
  readln(k);
  write('ВВедите размерность матрицы: ');
  readln(n);
  max := 0;
  l := 0;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    Begin
      a[i, j] := trunc(random * 100) - random(80);
      write(a[i, j] : 4);
      If (a[i, j] Mod k) = 0 Then
      Begin
        l := l + 1;
        t := a[i, j];
      End;
      If t > max Then
        max := t;
    End;
    writeln; {* Пустая строка *}
  End;
  writeln('Количество кратных К элементов матрицы: ', l);
  writeln('Максимальный кратный K элемент матрицы: ', max : 3 : 0);
  readln
End.