Помогите сделать задачу в паскале:
С пульта оператора вводится 3х значное число, программа должна посчитать суму цифер с которых оно состоит

При вводе двузначного и однозначного проверка не рвботает.

не работает*

Исправил, замените 7 строку на это until(n<999)and(n>100)and(n>-999)or(n>-999)and(n<-100);

Либо "n > 99", либо "n>=100"///

var sum:real;n:integer;beginrepeatwriteln('Введите трёхзначное число');readln(n);until(n<999)and(n>100)and(n>-999)or(n>-999)and(n<-100);sum:=(n div 100)+((n div 10) mod 10)+(n mod 10);writeln('Сумма чисел равна ', sum);end.При копировании всё становится в одну строку, решение на картинке