Даны натуральное число 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.