ПАСКАЛЬ СОСТАВИТЬ ПРОГРАММУ Найти среднее арифметическое элементов массива А(5), состоящего из целых чисел, вводимых с клавиатуры.

Var
i,sum:integer;
res:real;
a:array [1..5] of integer;
begin
for i:=1 to 5 do begin
readln(a[i]);
end;
for i:=1 to 5 do begin
sum:=sum+a[i];
end;
res:=sum/5;
writeln(res);
end.