На вход подается целое число, большее 1. Если оно является простым, т. е. не имеет положительных делителей, кроме 1 и самого себя, то вывести текст «YES», иначе вывести «NO».
uses PT4Exam;
var
a, i, k: integer;
begin
Task('ExamBegin12');
Read(a);
k := 0;
for i := 1 to a do
if a mod i = 0 then k := k + 1;
if k > 2 then Write('NO')
else Write('YES');
end.
