---

const s_n: array of integer = 
  (2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71);
var n, i: integer;
begin
  writeln('Введите число');
  read(n);
  i := 0;
  while (s_n[i] * s_n[i] <= n) 
    and (n mod s_n[i] <> 0) do
    i := i + 1;
  if s_n[i] * s_n[i] > n then
    writeln('Простое')
  else
    writeln('Составное')
end.