var s,n: integer;
begin
write('введите трехзначное число: ');
readln(n);
s:=n mod 10+ n div 100+n div 10 mod 10;
write('сумма цифр: ',s);
end.
var s,n: integer;
begin
write('введите трехзначное число: ');
readln(n);
s:=n mod 10+ n div 100+n div 10 mod 10;
write('сумма цифр: ',s);
end.