Написать программу для целых случайных чисел 2-ого массива, увеличивающего каждый элемент на 10

var

a: array[1 ... 10, 1 ... 10] of integer;

i, j: integer;

begin

writeln ('исходный массив');

for i : = 1 to 10 do

begin

for j : = 1 to 10 do

begin

a[i, j] : = random (50);

write (a[i, j]:3);

end;

writeln;

end;

writeln ('каждый элемент увеличили на 10');

for i : = 1 to 10 do

begin

for j : = 1 to 10 do

begin

a[i, j] : = a[i, j] + 10;

write (a[i, j]:3);

end;

writeln;

end;

end.