Question

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

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

Формат
выходных данных

Необходимо вывести  строку prime, если
число простое, или composite, если
число составное.

Answer 1

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.