Даны натуральное число n и действительные числа А1, А2, ..., Аn. Вычислить

S = (А1 + А2 + ..., + Аn) + max (А1, А2, ..., Аn).

сделать программу в паскалях

Var a: array of integer;

n, sum, max: integer;

begin

sum:=0;

write ('Введите натуральное число n: ');

readln (n);

a : = new integer[n];

write ('Введите действительные числа: ');

for var i:=0 to a. Length-1 do

read (a[i]);

write ('Сумма равна: ');

for var i:=0 to a. Length-1 do

sum:=sum+a[i];

writeln (sum);

write ('Максимальный элемент равен: ');

max : = a[0];

for var i:=0 to a. Length-1 do

if a[i]>max then

begin

max : = a[i];

end;

writeln (max);

write ('S = (А1 + А2 + ..., + Аn) + max (А1, А2, ..., Аn) = ');

sum:=sum+max;

write (sum);

end.