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

var a: array [1..100] of integer;

i,n: integer;

s: string;

begin

  randomize;

  for i : =1 to 100 do

  begin

      a[i]: = random(1000)+1000;

      a[i]: =a[i] mod 100;

      a[i]: =a[i] div 10;

      if a[i] mod 2 = 0 then n=n+1;

  end;

  writeln(n);

end.

сад гад год код кот