program primenum;
 
uses WinCRT;
 
var
x,i: word;
prime: boolean;
 
WriteLn('x=');
Read(x);
 
if x mod 2 = 0 then
  prime:=false
else
begin
  prime:=true;
  i:=3;
  while i < x do
    if x mod i = 0 then
    begin
      prime:=false;
      break;
    end
    else
      inc(i,2);
end;
 
if prime then
  WriteLn(x,'is prime')
else
  WriteLn(x,'isn`t prime');
 
end;