Составьте программу. Даны 6 чисел, найти среднее арифметическое. Помогите пожалуйста)

vara,sum,sr: real;i: integer;beginsum:=0;for i:=1 to 6 dobeginwriteln ('введи число');read (a);   sum:=sum+a;end;sr:=sum/6; writeln ('среднее арифметическое равно',sr);end.