Надо решить задачу с циклом repeat until

Question

В общем задача
Надо сделать программу которая считывает число если оно больше 1 и меньше 100. А у меня не получается вставить два условия вот код
program listen4;
Var
i,n: integer;
Sum: real;
begin
Sum:=0;
n:=0;
repeat
Writeln('Ââåäèäå ùíà÷åíèå i');
Readln(i);
if (i>1) then
Sum:=Sum+i;
n:=n+1
until (i<1);
Writeln('Ñóììà ââåäåííûõ ÷èñåë= ',Sum);
Writeln('Êîëè÷åñòâî ââåäåííûõ ÷èñåë',n);
end.
Как вставить в until 2 условия

(i>1) AND (i<100)
Почему то не работает

Алёна Андрющенко · Accepted Answer

(i>1) AND (i<100)

Виктор Большов · Answer

у меня работает эта прога 
program listen4; 
Var 
i,n: integer; 
Sum: real; 
begin 
Sum:=0; 
n:=0; 
repeat 
Writeln('A^a^a*a"e`a"a* u`ia`?a*ie`a* i'); 
Readln(i); 
if (i>1) and(i<100) then begin 
Sum:=Sum+i; 
n:=n+1 ;end; 
until (i<1); 
Writeln('N~oi`i`a` a^a^a*a"a*iiu^o~ ?e`n~a*e"= ',Sum); 
Writeln('E^i^e"e`?a*n~o`a^i^ a^a^a*a"a*iiu^o~ ?e`n~a*e"',n); 
readln; 
end.