begin
var N:=readInteger('Введите число');
N:=(N div 100)+((N div 10) mod 10)+(N mod 10);
Print('Summa:= ', N);
end.
begin
var N:=readInteger('Введите число');
N:=(N div 100)+((N div 10) mod 10)+(N mod 10);
Print('Summa:= ', N);
end.