ОЧЕНЬ Необходимо 27 баллов

Во втором находится сумма цифр числа
а = 1
б = 2
с = 5
Сумма = 8

В третьем надо написать, как я вижу, на паскале программку.
program Hello;var a,b,c,x:integer;begin    readln(x);    a:=x div 100;    b:=x mod 100 div 10;    c:=x mod 10;    writeln('Сотки ',a);    writeln('10-ки ',b);    writeln('Единицы ',c);end.