VAR
a,b,c,x: Integer; - описание типов переменных
BEGIN
Writeln('...'); // выводит, то что в скобках, с переносом строки
Write('...'); // выводит, то что в скобках, без переноса строки
Readln(x); // считывает значение переменной x, с переносом строки
a := x div 100;
// делит нацело Х на 100 и записывает результат в А (первая цифра числа)
b := (x mod 100) div 10;
// берет остаток от целочисленного деления Х на 100, нацело делит его на 10 и записывает его в b (вторая цифра числа)
с := x mod 10;
// берет отстаток от целочисленного деления X на 10 и записывает его в С
s := a + b + c;
// складывает цифры числа
Writeln('s = ',s); // выводит результат
END.