определите сумму цифр числа паскаль

помогите кто разбирается в этом)

оманд поймает специальный мяч снитч, то эта команда получает дополнительные 150 очков, после чего игра заканчивается.
В финале очередного чемпионата Хогвартса по квиддичу встретились команды Когтеврана и Пуффендуя. На протяжении всего матча команды сражались на равных, разница в счете никогда не превышала 10 очков (то есть одного гола), и в конце матча лидировал Когтевран, но благодаря пойманному снитчу победил Пуффендуй. Также после окончания матча журналисты опросили всех игроков, забивших хотя бы один гол.
Алиса сказала, что забила только один гол --- на 27 минуте.
Боб забил один гол на 30 минуте.
Виктория забила два гола --- на 5 и 21 минутах.
Глория забила четыре гола на 10, 12, 34 и 53 минутах.
Дональд забил два гола 14 и 42 минутах.
Эдвард забил три гола на 15, 23 и 56 минутах.
Выполните задания:
1. Укажите, с каким счетом закончилась игра (не забудьте, что снитч приносит 150 очков).
2. Для всех перечисленных игроков укажите, за какую команду они играли.

или во втором сумма цифр этого числа будет равна 9.)

Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10

Пример:
Введите целое число:
1234
Сумма цифр числа 1234 равна 10.

Var a,b,c:integer;
Begin
Readln(a);
b:= a div 10;
c:= a mod 10;
writeln('сумма цифр числа',a,'равна',b+c,'произведение равно'b*c)
end.