7. составить алгоритм и написать решение на паскале: сгенерировано целое число х1. определить среднее арифметическое трех чисел х1, х2 и х3, каждое из которых больше предыдущего в 4 раза.

var a,b,c:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
write('Среднее арифметическое=',(a+4*a+16*a) / :0:2);
end.