Здравствуйте, Ljubik!
Программа в приложении.

Удачи!

Приложение:
function is_simple(p:integer):boolean;{определяет, является ли число простым}var i : integer; res : boolean;begin i := 2; res := true; while res and (i < p) do begin res := p mod i <> 0; inc(i); end; is_simple := res;end;var p : integer;begin ReadLn(p); inc(p); while not is_simple(p) do begin inc(p); end; writeLn(p); ReadLn;end.

Здравствуйте, Ljubik!

Смотрите приложение.
По программе:
- функция F рекурсивно вызывает сама себя с новыми значениями(от числа Р до 1) и возвращает значение TRUE если число простое;
- функция С рекурсивно вызывает сама себя c новым значением (от Р до следующего простого числа);
Программа выдает результат ввиде TRUE следующее простое число или FALSE когда число Р не простое.
Удачи!

Приложение:
var p:integer; {рекурсивная функция контроля простого числа} function F(x,y:integer):boolean; begin if y<1 then F:=false else if y=1 then F:=true else F:=F(x,y-1) and ((x mod y)>0); end; {рекурсивная функция поиска следующего числа} function C(z:integer):integer; begin if F(z,z-1) then C:=z else C:=C(z+1); end; begin {сама программа} write(‘P:‘);readln(p); if F(p,p-1) then writeln(F(p,p-1),C(p+1):7) else writeln(f(p,p-1)); end.