Написать программу для целых случайных чисел 2-ого массива…

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.