Из отдельных операторов составьте программу.

Дано шестизначное число. Найти сумму его цифр. Величины для хранения всех шести цифр числа не использовать.

• Var i, a,sum: integer;
• begin
• Read\(a\); {Ввод шестизначного числа}
• sum := 0;
• for i := 1 to 6 do
• begin
• sum := sum + a mod 10;
• a:=a div 10
• end;
• write\(sum\)
• end.