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

Var a:integer;
begin
read (a);
if (a mod 10<1) or (a div 100 < 1) or ((a mod 100) div 10 < 1) or (a div 1000 >= 1) then
begin
writeln ('Неверный ввод');
halt;
end else
begin
writeln ((a mod 10) + (a div 100) + ((a mod 100) div 10));
end
end.