[Xcopy]

помогите пожалуйсто, для вас я думаю это труда вообще не составит.
Задача звучит так:
Пусть дано число А. Найдите первое простое число которое больше, чем А.
(примечание: простое число делится нацело только на себя и на 1)

[lmikle]

Ну, в тупую так и делай. Циклом от 2 до число -1 проверяешь остаток от деления.

Код:

function CheckSimple(A : Integer) : Boolean;
var
  I : Integer;
begin
  Result := True;
  For I := 2 To A-1 Do
    If (A mod I) = 0 Then
      Begin
        Result := False;
        Break;
      End;
end;

function FindNextSimple(A : Integer) : Integer;
var
  N : Integer;
begin
  N := A + 1;
  While Not CheckSimple(N) Do N := N + 1;
  Result := N;
end;

Ну и пошли школьники/студенты!!! Своей головой только кушают...