Программа с циклом, помогите доделать Опции

[Lakibooy]

Здравствуйте
помогите с задачкой

Надо ввести число от 100 до 10100,если число вводится и не попадает в этот интервал,то запрос повторяется до тех пор ,пока не дойдет до правильного.Если число введено правильно,то выдать сумму его цифр.

тоесть если я ввожу 678 то мне нужно получить сумму цифр пример 6+7+8=21
как мне это сделать?
Подскажите пожалуста.

Добавлено через 12 мин.
вот код который я написал
но не знаю правельно ли!

uses crt;
Var x,s:integer;
begin
Clrscr;
writeln('Введите число');
readln(x);
repeat writeln('Введите число');
readln(x); until (x<100) and (x>10100);

writeln('сумма,s);
readln;
end.

Сообщение отредактировано: Lakibooy - 6.06.2007 18:47

[Lakibooy]

спасибо в который раз уже выручаешь!!!

[compiler]

спасибо в который раз уже выручаешь!!!

та незачто
я вот тебе процедурку не много переписал теперь она пищит

function ReadN:i;
var a:i;
begin
	write('-->');
	readln(a);
	while ( (a<100) or  (a>10100) ) do begin  
		Clrscr;     //добавь библиатеку!!!
		write('-->', #7);
		readln(a);
	end;
	ReadN:=a;
end;