Помогите пожалуйста,СРОЧНО!11!

Написать программу в паскале,которая запрашивает число и выводит на экран сумму его цифр,использовать цикл while.

var

   a, s: integer;

begin

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

   readln(a);

   while a > 0 do begin

       s += a mod 10;

       a := a div 10;

   end;

   writeln('Сумма цифр равна ', s);

end.