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

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.

При копировании всё становится в одну строку, решение на картинке