Определите, является ли число N простым. (паскаль)

Var
N, l, k: integer;

begin
read(N);
if N > 0 then
k := 0;
for l := 1 to N do
if N mod l = 0 then k := k + 1;
if (k >= 1) and (k <= 2) then writeln(Простое) else writeln(Не простое);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.