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

vari,sum:integer;res:real;a:array [1..5] of integer;beginfor i:=1 to 5 do beginreadln(a[i]);end;for i:=1 to 5 do beginsum:=sum+a[i];end;res:=sum/5;writeln(res);end.