Вопрос, который вызвал трудности
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Program chisla;
var a:integer;
begin
writeln('Введите четырехзначное число ');
readln(a);
if (a>=1000) and (a<=9999) then<br>begin
a:=(a div 1000)+((a div 100) mod 10)+((a div 10) mod 10)+(a mod 10);
writeln('Сумма цифр этого числа: ',a);
end
else writeln('Это не четырехзначное число');
end.