Составьте программу

[sergmkg36]

Ребятки выручайте,девушка совсем в этом не разбирается((Мне нужно до завтра составить программу!.Условие такое:
Определить является ли числ N простым.
Помогите ,если не сложно.

Ребят пожалуйста , по возможности до 10часов, напишите

[Hacker19_90]

function GetP (n: integer):boolean;
var
    i: integer;
    flag: boolean;
begin
    flag := true;
    for i := 2 to n - 1 do
       if (n mod i) <> 0 then
       begin
           flag := false;
           break;
       end;
     GetP := flag;
end;