Написать программу которая найдет сумму цифр введенного с клавиатуры трехзначного натурального числа 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.

алфавит из 33 букв это:

аа, бб, вв, гг, дд, ее, ёё, жж, зз, ии, , кк, лл, мм, нн, оо, пп, рр, сс, тт, уу, фф, хх, цц, чч, шш, щщ, ъъ, , , ээ, юю, яя

логика, морзе, вектор, шина, дек, рунет, железо, терно, юзер, актерка(каретка) , адаптер, браузер, цифра, образ, плата, эталон, сектор(стокер), зерно, утилита, файл, гамма, щелчок, чистка, иконка, ядро, ( ( набор.