Помогите решить. Дана матрица . вывести на экран первый и последний столбцы.
Var a: array [1..5,1..3] of integer; i,j,n,m: integer; begin for i:=1 to n do for j:=1 to m do read (a[i,j]); for j:=1 to m do begin write (a[1,j]) ; write (a[n,j]) ; end; end.