20. Дано
простое число Р. Найти и вывести на экран следующее за ним простое число.
Задачу решить с использованием процедуры или функции.
Решение
program
lab1;
var
n,i,k:integer;
Label
Metka;
function
Prost(n:longint):boolean;
var
i:longint;
begin
if(n>2)and(n
mod 2=0) then
begin
Prost:=false;
exit;
end;
Prost:=true;
for i:=2
to round(sqrt(n)) do
if n mod
i=0 then
begin
Prost:=false;
break;
end;
end;
begin
Metka:
write('Vvedite
prostoe chislo n = ');
readln(n);
if
not(Prost(n)) then
begin
writeln('Eto
ne prostoe chislo');
Goto
Metka;
end;
i:=n+1;
k:=n+1;
while
not Prost(i) do
i:=i+1;
k:=i;
write('Sledyushee
prostoe chislo = ', k);
end.