Решить в паскалеДаны действительные числа a1,…

Program chisla; var i: integer; s: reala,b: array[1… 100,1… 100] of real; begins: =0; for i: =1 to 24 doreadln a[i]; for i: =1 to 24 do beginb[i]: =s+exp (i*ln (a[i]); writeln (b[i]); end; end.