заполнить двумерный массив случайными числами от 10 до 100.

Var m : array[1..5,1..5] of Integer;i,j : Byte;Begin  Randomize;  For i:=1 to 5 do  Begin   For j:=1 to 5 do   Begin     m[i,j]:=Random(91)+10;     Write(m[i,j]:4);   end;  Writeln;  end;end.