Составить программу, определяющую, является ли введённое с клавиатуры число простым. Если простое вывести да, если нет соответственно нет.
var a,i,k:integer;
begin
read (a);
for i:=1 to a do
if a mod i = 0 then k:=k+1;
if (a=1) or (k=2) then write ('Да') else write ('Нет')
end.