Составить программу нахождения среднего арифметического пяти введенных чисел.

const n = 5;

var

a : array [1 ... n] of integer;

i : byte;

b, sum : integer;

begin

for i : = 1 to n do begin

write ('Введите ', i,'-е число: ');

readln (b);

a[i] : = b;

sum : = sum + a[i];

end;

writeln ('Среднее арифметическое указанных ', n,' чисел равно ', sum / n, '.');

readln;

end.