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

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

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

program pr534;
uses
  math;
 
var
  a   : array of real;
  n, i : integer;
  s   : real;
 
begin
  write('n = '); readln(n);
  setlength(a,2*n); 
  randomize;            
  for i:=0 to 2*n-1 do
  begin
      a[i]:=random(999)/100;
      write('a', i, ' = ', a[i]:2:2,' ');
      if (i mod 15 = 14) then
        writeln;
  end;
  writeln;
  s:=1;
  for i:=0 to n-1 do
    s:=s*(a[i*2]-a[2*n-i*2-1]);
  writeln('Result: ',s:2:2);
  readln;
end.