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.