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