Задано пятизначное число.Найдите цифры и сумму цифр пятизначного числа. (Программа на Паскале) div и mod

// - комментарии, можешь не писать, это пояснение для тебяvar z,a,b,c,d,e,f: integer;beginWrite('Введите пятизначное число'); read(z);a:=a div 10000;                      // число десятков тысячb:=a mod 10000 div 1000;     // число тысяч c:=a mod 1000 div 100;         // число сотенd:=a mod 100 div 10;             // число десятков e:=a mod 10;                         // число единицf:=a+b+c+d+e;                      // сумма цифрWriteln('Цифры: ', a,b,c,d,e);Write('Сумма цифр: ',f);end.