Оно не будет повторяться,так как тут даже нету операторов для повтора.
Var n,i: integer;
priz: boolean;
begin
write('n = '); readln(n);
repeat
priz:=true;
for i:=2 to round(sqrt(n)) do
if n mod i=0 then
begin
priz:=false;
break;
end;
if priz then write(n)
else inc(n);
until priz;
end.
n = 121
127
мы сегодня писали этот соч. тип ориентации:книжный; листов:13
Var a,b,x,y,z:integer;
begin
readln(a,b,x,y,z);
if ((a>=x)and(b>=y))
or ((a>=y)and(b>=x))
or ((a>=x)and(b>=z))
or ((a>=z)and(b>=x))
or ((a>=y)and(b>=z))
or ((a>=z)and(b>=y))
<span>then write('Пройдёт')
</span><span>else write('Не пройдёт');</span>end.