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

Var a,s:integer;
begin
  repeat
    writeln('Введите число ');readln(a);
  until (agt;10000) and (alt;99999);
  while alt;gt;0 do begin
    s:=s+a mod 10;
    a:=a div 10;
  end;
  writeln('Сумма цифр:',s);
end.

Тестовое решение:
Введите число
56743
Сумма цифр:25