Для начала необходимо вычислить значение выражения: 3658979549970420
После переводим в шестеричную систему, деля число на 6 и записывая остатки в обратном порядке:
3658979549970420/6 -->0
609829924995070/6 --> 4
101638320832511/6 --> 5
16939720138751/6 -->5
2823286689791/6 -->5
470547781631/6 --> 5
78424630271/6 --> 5
13070771711/6 --> 5
2178461951/6 --> 5
363076991/6 --> 5
60512831/6 --> 5
10085471/6 --> 5
1680911/6 --> 5
280151/6 --> 5
46691/6 --> 5
7781/6 --> 5
1296/6 --> 0
216/6 --> 0
36/6 --> 0
6/6 --> 0
1 --> 1
100005555555555555540
ответ: 5
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.