Var a,i,s,max,amax:integer;
function sum(n:integer):integer;
var s:integer;
begin
s:=0;
while n<>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
max:=0;
for i:=1 to 8 do
begin
write('a = ');
readln(a);
s:=sum(a);
if s>max then begin max:=s; amax:=a; end;
end;
writeln('В числе ',amax,' максимальная сумма цифр = ',max);
end.
Пример:
a = 405a = 120
a = 309
a = 671
a = 456
a = 215
a = 751
a =321
В числе 456 максимальная сумма цифр = 15