Что определяет данный код на языке Паскаль?

Что определяет данный код на языке Паскаль:
//i, n, flag - переменные целого типа
flag := 1;
if n > 2 then begin
flag := 0;
for i := 2 to n - 1 do
begin
if n mod i = 0 then begin
flag := 1;
break
end;
end;
end;
writeln((n = 2) OR (flag = 0));