Напишите программу формирования и вывода массива размером 6*3, каждые три…

1) var a: array[1… 100,1… 100] of Real; i,j: integer; n,m: integer; beginwrite ('Rows='); readln (n); write ('Cols='); readln (m); for i: =1 to n dobeginfor j: =1 to 2 do beginwrite ('[',i,',',j,']='); readln (a[i,j]); end; For j: =3 to m doa[i,j]: =a[i,j-1]+a[i,j-2]; end; For i: =1 to n do beginfor j: =1 to m dowrite (a[i,j]: 8:3); writeln; end; readln; end.2) var a: array[1… 6,1… 3] of Real; i,j: integer; beginRandomize; for i: =1 to 6 dobeginj: =1; a[i,1]: =sqr (i+j); a[i,2]: =random (18) -9; a[i,3]: =a[i,1]/2+a[i,2]/2; For j: =1 to 3 dowrite (a[i,j]: 8:1); writeln; end; readln; end. Но это на языке паскаль я фиг знает какой тебе нада тут два варианта