Program N1;
var n : integer;
begin
writeln('введите число');
read(n);
write(n mod 10 + (n div 10) mod 10 + (n div 100) mod 10);
end.
Program N1;
var n : integer;
begin
writeln('введите число');
read(n);
write(n mod 10 + (n div 10) mod 10 + (n div 100) mod 10);
end.