Написать программу с организацией ввода-вывода с помощью текстовых…

var a: array[1… 10,1… 10]of integer; i,j,k,s: integer; beginfor i: =1 to 10 do for j: =1 to 10 do a[i,j]: =random (9)+1; for i: =1 to 10 do begin for j: =1 to 10 do write (a[i,j],'); if j=10 then writeln; end; s: =1; for i: =2 to 10 do begin k: =a[i,1]; for j: =2 to 10 do beginif i mod 2=0 then if a[i,j]>k then k: =a[i,j]; if (j=10) and (i mod 2=0) then s: =s*k; end; end; writeln (s); end.