{* Задача 78 *}

Unit ZADACH78;
Interface
Implementation
Begin
 writeln('Дано протстое число, составить функцию которая будет находить следующее за ним простое число ');
End.

Program zadach78;

Uses zadach78.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  N                    : integer;
Function IsProstoe(N : integer);
Var {* Объявление переменных *}
  i : integer;
Begin
  IsProstoe := true;
  If abs(N) < 3 Then
    exit;
  For i := 2 To abs(N) - 1 Do {* Переменная i увеличивается с 2 до abs(N) *}
    If abs(N) Mod i = 0 Then
    Begin
      IsProstoe := false;
      exit;
    End;
  
End;
Begin
  writeln('Vvedite prostoe chislo');
  readln(N);
  Repeat inc(N) {* Прибавим к N единицу *}
    Until IsProstoe(N);
    writeln(N);
  readln; {* Ждем подтверждения пользователя *}
End.