Вопрос, который вызвал трудности

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

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

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

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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.