Решите задачку в паскале авс, пожалуйста, срочнооооо!!!!!Найти сумму цифр трёхзначного числа

Program n1;
var a: integer;
begin
readln(a);
write((a mod 10)+(a div 100)+(a mod 100 div 10));
end.

Var  N: word; Трехзначное число   t1, t2, t3: byte; Цифры трехзначного числа
begin   write('Введите трехзначное число: ');  readln(N); lt;-- вводим трехзначное число   writeln;  t3 := N mod 10; lt;== третья цифра   N := N div 10;  lt;== число созданное первыми 2-мя цифрами   t2 := N mod 10; lt;== вторая цифра   t1 := N div 10; lt;== 1-ая цифра   writeln('Сумма цифр: ', t1 + t2 + t3); readlnend.