СРОЧНО!    PascalСоставить программу, которая находит в таблице трехзначные числа кратные 7 и уменьшает их на 10.

const n=4; m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  a[i,j]:=random(1000);
  write(a[i,j]:4);
  end;
 writeln;
 end;
for i:=1 to n do
 for j:=1 to m do
   if (a[i,j] mod 7=0)and(a[i,j]>99)and(a[i,j]<1000) then a[i,j]:=a[i,j]-10;
writeln('New:');
for i:=1 to n do
  begin
 for j:=1 to m do write(a[i,j]:4);
 writeln;
 end;
end.

Пример889 18817 186 772
394 121 406 679 936
 20 147 868 691 450
52573 575 232 416
New:
879 18817 186 772
394 121 396 669 936
 20 137 858 691 450
51573 575 232 416