var  i,a:integer;  
       b:boolean:=true;
begin 
  write('Введите число = '); 
  readln(a); 
  for i:=2 to round(sqrt(a)) do    
     if a mod i = 0 then begin b:=false; break; end; 
  if b then writeln('Число ',a,' является простым') 
  else writeln('Число ',a,' не является простым')
end.