program sumOfDigits;
var
number, digit1, digit2, digit3, digit4, sum: integer;
begin
writeln('Введите четырехзначное число:');
readln(number);

digit1 := number div 1000;
digit2 := number div 100 mod 10;
digit3 := number div 10 mod 10;
digit4 := number mod 10;

sum := digit1 + digit2 + digit3 + digit4;

writeln('Сумма цифр четырехзначного числа: ', sum);
end.