Проверьте, является ли число простым.

Вводится одно число n.

Формат

выходных данных

Необходимо вывести строку prime, если

число простое, или composite, если

число составное.

Function IsPrime (x: integer) : boolean;

var s, n: integer;

begin

Result : = x > 1;

s : = Trunc (Sqrt (x)) + 1;

n : = 1;

while (n < s) and Result do begin

n : = n + 1;

Result : = Result and (x mod n > 0) ;

end;

end;

var x, s: integer;

begin

readln (x) ;

if IsPrime (x) then

writeln ('prime')

else

writeln ('composite') ;

end.