Вообщем задачка такая:
Ввести натуральное число n (от - 1000000 до 1000000).Посчитать сумму цифр этого числа.
Пример: вводим 12345,программа должна посчитать сумму этих цифр,тут получается 15.
Уже всё перепробовал,но считает только первые 2 числа.
Вот мой код,подскажите как его дополнить:

Program Primer;
uses Crt;
var
     n:LongInt;
     s,p1:integer;
begin
ClrScr;
Write('Vvedite N: ');ReadLn(n);
s:=0;
Repeat
           p1:=n div 10;
           s:=p1+n mod 10;
until n=n;
WriteLn('Summa: ',s);
end.

Не чё то не подходит.Во-первых прога не рабочая,а во-вторых много мне неизвестных операторов,непонятный код для меня.

Прога рабочая. 
Про непонятный код - лол, помогающий должен угадать что можно использовать?

Еще попытка:





Это сообщение отредактировал(а) darkart - 20.11.2010, 23:29