Алгоритм, который устанавливает – является ли число N простым. Число называется простым, если оно делится нацело без остатка

var
  n,i,k:longint;
  begin
  writeln('введите число n');
  readln(n);
  k:=0;
  for i:=2 to n do begin
  if n mod i =0 then k:=k+1;
  if k>0 then break;
  end;
  if i=n then writeln('число является простым')
  else writeln('число не является простым')
  end.