С клавиатуры вводится трехзначное число

var a, s: integer; // целочисленный тип данныхbeginwriteln ('Введите число: '); readln (a); // вводим число (можно больше трех знаков) while a <> 0 do // пока остались цифры в числе выполнять… begin s: =s+(a mod 10); // Отбираем последнюю цифру числа и прибавляем к сумме a: =a div 10; // Стираем последнюю цифру числа end; writeln ('Сумма цифр=', s) // выводим результатend.