помогите с турбопаскалем плз!!

[MaKeNToSh]

задача простенькая..к завтрашнему дню нужна

в двумерном массиве целого типа найти все элементы кратные 5 и замненить их на 5."

[Serge_Bliznykov]

Код: Выделить всё

  for i:=1 to N do
   for j:=1 to M do
     if (A[i,j] mod 5) = 0 then A[i,j]:=5;

[neZACHET]

Эх, мне бы ваши заботы...