Впаскале сделать используя циклы: ввести число и определить является ли оно простым (если его делители являются 1 и само число)

program xxx;

var k, d, n : integer;

      pr : boolean;

begin

  writeln('Введите число k=');

  readln(k);

  d:=2;

  n:= k div 2;

  pr:=false;

  while (d<=n) and not(pr) do

     if k mod d = o then pr:=true else d:=d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

   readln

end.