Задача в Паскале

[Hitchi]

Если что не так написал, извините. Пишу первый раз
Собственно, вот задача

program lab;
var a,b,c:integer;
begin
     writeln('Введите число');
     readln(a);
     while a<>0 do
           begin
                b:=a mod 10;
                c:=c+b;
                b:=a div 10;
                a:=b;
           end;
     if (c mod 5)=0
        then
            writeln('Сумма цифр этого числа кратна 5')
     else
         writeln('Сумма цифр этого числа не кратна 5');
end.

Нужна помощь в пояснении, не понятно подтело где расписывается mod и div. И для чего тут нужен оператор цикла.

[Poma][a]

program lab;
var a, b : integer;
begin
     writeln('Введите число');
     readln(a);
     b := 0;
     while a<>0 do
     begin
         b:= b + a mod 10;
         a:=a div 10;
     end;
     
     Write ('Сумма цифр этого числа ');
     if (b mod 5) <> 0 then
          Write ('не ');
     WriteLn ('кратна 5')
end.

[Serge_Bliznykov]

A mod B - функция получения остатка от целочисленного деления A на B
например,
5 mod 2 вернёт 1
19 mod 5 вернёт 4
297 mod 10 вернёт 7

A div B - операция целочисленно деления, возвращает частное от деления A на B без остатка.
Например,
19 div 5 вернёт 3
297 div 10 вернёт 29

ну дальше понятно?
с помощью a mod 10 получаем последнюю цифру в десятичной записи числа a
с помощью a div 10 обрасываем последнюю цифру
повторяем, пока число не будет равным нулю.
вот и вся "хитрость"

[Hitchi]

Спасибо, разобрался