var k:integer;

begin

write ('Введите не более, чем четырехзначное число: ');

readln (k);

writeln ('Сумма цифр равна: ',k div 1000 + k div 100 mod 10 + k mod 100 div 10 + k mod 10)

end.