Ввести c клавиатуры массив из 5 элементов…

program q; var m: array[1… 5] of integer; sum, j: integer; begin sum: =0 for j=1 to 5 do begin write ('введите ',j ,'элемент массива: '); readln (m[j]); sum: =sum+m[j] end; sum: =sum/5; writeln (sum) end.