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

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

Розв'язок на Pascal

program pr136_5;
var
  i, n, f, z : integer;
  s, a : real;
begin
  write('n = '); readln(n);
  s := 0;
  f := 1;
  z :=  1;
  for i := 1 to n do
  begin
    write('a',i,' = '); readln(a);
    z := z * -1;
    f := f * i;
    s := s + z * a / f;
  end;
  
  writeln('Suma: ', s:5:2);
  readln;
end.