Цілочісельне ділення

Складіть програму обчислення суми цифр цілого трьохзначного числа
program Cilociselne_dilenna;
uses crt;
Var a,b,c,f: integer;
BEGIN
Writeln('vedit 3 snache cislo');
readln(c);
a:=c mod 10;
Writeln(a);
b:=c div 100;
Writeln(b);
f:=c div 10 mod 10;
Writeln(f);