program chisla;
uses crt;
var i,a,k: integer;
begin
clrscr;
write('введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then k:=k+1;
if k=0 then write('простое')
else writeln('не простое');
readln;
end.

var
  i,n,m,s:integer;
begin
  write('Введите число: ');
  readln(n);
  if n mod 2=0 then
    writeln('Число не является простым')
  else begin
    m:=trunc(sqrt(n));
    i:=3;
    while (n mod i <> 0) and (i<=m) do i:=i+2;
    if i<=m then writeln('Число не является простым')
    else writeln('Число является простым')
  end
end.