Дано число А. Определить, является ли оно простым (простое это натуральное число имеющие ровно два различных натуральных делителя: пшеницы и само себя)

var a,i,k:integer;beginreadln(a);for i:=2 to a-1 doif (a mod i)=0 then k:=k+1;if k=0 then writeln('Простое')else writeln('Сложное');end.