var x,y,z,n:integer;
begin
writeln(''Введите трехзначное число);
readln (n);
x:=n div 100;
y:=(n mod 100) div 10;
z:=(n mod 100) mod 10;
n:=x+y+z;
writeln ('Сумма цифр этого числа = ', n);
end.
var x,y,z,n:integer;
begin
writeln(''Введите трехзначное число);
readln (n);
x:=n div 100;
y:=(n mod 100) div 10;
z:=(n mod 100) mod 10;
n:=x+y+z;
writeln ('Сумма цифр этого числа = ', n);
end.