Как можно объяснить и исправить ошибку в программе? - Pascal

Формулировка задачи:

Дана программа:

program n_4; 
var x, a, b, c, s: integer; 
begin 
writeln('Нахождение суммы цифр трёхзначного числа');
write ('Введите исходное число»'); 
readln(x) 
a:x= div 100
b:=x mod 100 div 10; 
c:=x mod 10;
 s:= a+b+c; 
writeln ('s=', s) 
end.

Пожалуйста помогите.

Решение задачи: «Как можно объяснить и исправить ошибку в программе?»

Листинг программы

program n_4;
var x, a, b, c, s: integer;
begin
writeln('Нахождение суммы цифр трёхзначного числа');
write ('Введите исходное число»');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
s:=a+b+c;
writeln ('s=', s)
end.

Объяснение кода листинга программы

Объявление переменных: x, a, b, c, s (типа integer).
Вывод сообщения о нахождении суммы цифр трёхзначного числа.
Ввод исходного числа с клавиатуры и сохранение его в переменной x.
Вычисление и сохранение в переменных a, b, c цифр числа x.
Вычисление и сохранение в переменной s суммы цифр a, b, c.
Вывод на экран значения переменной s.
Ожидание нажатия клавиши для завершения работы программы.