Вычислите среднее арифмитическое 7 введенных чисел(паскаль)срооочнозаблаговременно спасибо

var

a,b,c,d,e,f,g: integer;

sr_arf: real;

begin

write('Введите значение 1 числа: ');

read(a);

write('Введите значение 2 числа: ');

read(b);

write('Введите значение 3 числа: ');

read(c);

write('Введите значение 4 числа: ');

read(d);

write('Введите значение 5 числа: ');

read(e);

write('Введите значение 6 числа: ');

read(f);

write('Введите значение 7 числа: ');

read(g);

sr_arf:=(a+b+c+d+e+f+g)/7;

write('Ср.ариф. = ',sr_arf);

end.