<span>населенные пункты </span><span>Денисовка и Филатово </span>не являются соседними .
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
Начать новый абзац в тексте.
Определенная система символов и правил представления информации язык (с)