Найти сумму цифр заданного трехзначного числа (программа Паскаль)

Question

Найти сумму цифр заданного трехзначного числа

Answer 1

Program z6;
Var n, a1, a2, a3, s: Integer;
Begin
Writeln (‘Введи число’);
Readln (n);
a1:= n div 100  ;
a2:= n div 10 mod 10;
a3:= n mod 10;
s:= a1+a2+a3;
Writeln (‘сумма’, s);
Readln;
End.