Вводиться число, которое состоит из 6 цифр. В данном числе выделить

program zz1;

var s, n, k:integer; // задаем переменные целого типа

begin

write ( введите шестизначное данное число );

read (n);  // вводим с клавиатуры данное число

s:=0; // задаем изначальное значение для суммы

while n gt; 0 do  // организуем цикл, который будет работать, пока в числе есть числа

begin

k:= n mod 10;  // получаем последнюю цифру

s:= s + k; // добавляем ее к сумме

n:= n div 10;    // отбрасываем ее из числа

end;

// выводим ответ

writeln ( сумма цифр шестизначного числа = , s);

end.