Дан массив из 5 элементов, найти среднее арифметическое всех элементов массива. Выполнять на паскале. Нужно написать

const n = 5;

var a: array [1..n] of integer; i, sum: integer; s: real;

begin sum := 0; writeln (\'Введите элементы массива.\'); for i := 1 to n do readln (a[i]); for i := 1 to n do begin sum := a[i] + sum; end; s := sum / n; writeln; writeln (\'Среднее арифметическое равно \', s:1:2, \'.\');end.