Написать программу на pascal:дана матрица b состоящая из целых чисел получить матрицу r значения которой равны удвоенным значениям матрицы b

var b:array[1..1000, 1..1000] of integer;n,m,i,j:integer;BeginWriteln('Введите количество столбцов');Readln(n);Writeln('Введите количество строк');Readln(m);For i:=1 to n doFor j:=1 to m do beginReadln(b[i,j]);b[i,j]:=2*b[i,j];end;end.

uses crt;var b:array[1..100,1..100] of integer;       r:array[1..100,1..100] of integer;str,stb,i,j:integer;Beginrandomize;clrscr;Writeln('Введите количество строк :  ');Read(str);Writeln('Введите количество Столбцов:  ');Readln(stb);writeln;writeln('Matrica B');For i:=1 to str dobeginFor j:=1 to stb do beginb[i,j]:=random(30)+1;r[i,j]:=2*b[i,j];write(b[i,j]:3,'  ');end;writeln;end;writeln;writeln('Matrica R');for i:=1 to str do beginfor j:=1 to stb dobeginwrite(r[i,j]:3,'  ');end;writeln;end;readln;end.Запускаем , и первом делом создаём двухмерный массив Введя числа(когда программа запросит) не превышающий числа 100  (Строки и столбцы) ... после как мы ввели числа создается массив заполняя массив случайными числами в диапазоне 1..30.. И выводим Массив B, после удваиваем каждый элемент и заносим удвоенный результат в масссив R, и тоже выводим