Встречается в цикле с постусловием: <span>repeat ... until
</span><span>Цикл повторяется до тех пор, пока условие записанное после ключевого слова until, будет ложным (не выполняется). Как только это условие выполнится, происходит выход из цикла. Такой цикл выполняется как минимум 1 раз обязательно.</span>
Var a, b:real;
begin
readln(a, b);
writeln('Площадь равна ', a*b);
writeln('Периметр равен ', 2*(a + b));
end.
Если это паскаль
диапазон вводится с клавиатуры
program pr1;
var a,b,x:integer; p:longint;
begin
writeLn('введите диапазон'); read(a,b);
x:=a;
while (x div 10)=0 do
inc(x);
p:=x;
inc(x);
while x<=b do
begin
p:=p*x;
inc(x);
end;
writeLn('p=',p);
<span>end.</span>