Розв’язок задачі з Абрамова №317

Всі умови | Умова: Дано дійсні числа a1, ..., a10. Обчислити a1 + a2^2 + ... + a10^10 (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №317)

program pr317;
const
  n = 10;
var
  i, j: integer;
  a, s, e : real;
begin
  s := 0;
  for i := 1 to n do
  begin
    write('a',i,' = '); readln(a);
    e := 1;
    for j := 1 to i do
      e := e * a;
    s := s + e;
  end;
  writeln('Suma: ', s:5:2);
  readln;
end.