Вычислить сумму цифр заданного целого трехзначного числа. в паскале

program zz1;

var a, b, c, V:integer;

begin

read (V); / /вводим исходное трехзначное число

a:=V mod 10; / /получаем первую цифру числа

b: = (V mod 100) div 10; / /получаем вторую цифру числа

c:=V div 100; / / получаем третью цифру числа

write ('сумма цифр заданного трехзначного числа - ', a+b+c); / /выводим ответ

end.