var
sum:real;
n:integer;
begin
n:=527;
sum:=(n div 100)+((n div 10) mod 10)+(n mod 10);
writeln('Сумма чисел в числе равна: ',sum);
writeln;
readln;
end.
var
sum:real;
n:integer;
begin
n:=527;
sum:=(n div 100)+((n div 10) mod 10)+(n mod 10);
writeln('Сумма чисел в числе равна: ',sum);
writeln;
readln;
end.