Надо решить задачу с циклом 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.