Написать в тетради программу, в которой пользователь вводит целое 3-хзначное число, необходимо найти сумму его цифр

Var s: integer;
begin
readln(s);
s:= (s div 100)+((s div 10) mod 10)+(s mod 10);
writeln (s);
end.