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

Program z1;
  var
    a: integer;
    c: byte;
  begin
    readln(a);
    c:=0;
    while a <> 0 do  begin
      c:=c + a mod 10;
      a:=a div 10;
    end;
    writeln('Summa: ', c);
  end.