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

program sum;

var

    a,s: integer;

begin

writeln('введите трехзначное число а');

readln(a);

while (a div 10> 0)

begin

s: =s+ (a mod 10 );

a: =a div 10;

end

s: =s+a;

writeln('сумма чисел равна',s);

end.

program sum;

var

    a,b,c,s: integer;

begin

writeln('введите числа а,в,с');

readln(a,b,c);

s: =a+b+c;

writeln('сумма чисел равна',s);

end.

сред. арифметическое = сумма всех чисел разделить на количество

(a1 + a2 + a3 + a4 + a5) / 5

ну в метро, или если ты турист то картой, не?