На вход подается целое число, большее 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.