Условие: Дано натуральное число. Проверить, является ли оно простым. Примечание: простым называется натуральное число, которое имеет ровно два различных натуральных делителя: единицу и само это число.

Var a,i,k: integer;Beginwrite('Введите число: ');readln (a);k:=0;for i:=1 to a doif a mod i = 0 then k:=k+1;if k=2 then writeln(a,' простое число')else writeln(a,' не является простым числом')End.