Нужна программа на языке программирования Pascal. Дана матрица А[8,8] четных чисел…

Значит так… очередная нудная программа с простым алгоритмом. Печатает начальный массив, потом диагональ (в уже измененном массиве), потом новый массив, потом число элементов 19… 59, произведение диагонали, сумму элементов столбца s.program test; uses crt; var arr: array[1… 8,1… 8] of integer; i,j,cou,pr,s,sum: integer; begin clrscr; randomize; pr: =1; s: =7; for i: =1 to 8 do begin for j: =1 to 8 do begin arr[i,j]: =random (127)+2; write (arr[i,j],'); end; writeln; end; writeln; for i: =1 to 8 do for j: =1 to 8 do begin if (arr[i,j]>18) and (arr[i,j]<60) then begin cou: =cou+1; arr[i,j]: =0; end; if i=j then begin pr: =pr+arr[i,j]; write (arr[i,j],'); end; if j=s then sum: =sum+arr[i,j]; end; writeln; writeln; for i: =1 to 8 do begin for j: =1 to 8 do write (arr[i,j],'); writeln; end; writeln; writeln (cou); writeln (pr); writeln (sum); readln; end.