Программист написал программу, позволяющую найти сумму цифр заданного трехзначного числа, но допустил в ней ошибку. При вводе числа 123, выводимый ответ равен 5, хотя сумма цифр 123 равна 6. В какой строке программы допущена ошибка?

Program name;
var x,s,a,b,c:integer;
begin
readln\(x\);
a:=x div 100;
b:=x div 10 div 10;
c:=x mod 10;
s:=a+b+c;
write\(s\);
end.