Двумерные массивы. Помогите написать программу: заполнить массив 3 х 10 там вот так…

Var a: array [1… 3, 1… 10] of integer; i, m, j: integer; begin for i: =1 to 3 do for j: =1 to 10 do begin if (i=1) then a[i, j]: =j; if (i=2) then a[i, j]: =5*j; if (i=3) then a[i, j]: =25*j; writeln ('[', i, ', ', j, '] => ', a[i, j]); end; end. Удачи)