Программа

Program Pilshikov_5_51 (input,output);
{ Напечатать все простые делители
  заданного натурального. }
Var N,i,D,iDIV2:integer;
    Flag:boolean;
BEGIN
  Write('Введите число ');
  Readln(N);
  for i:=2 to N div 2 do
    Begin
      if N mod i =0 then begin
                           Flag:=true;
                           D:=2;
                           iDIV2:=i div 2;
                           while (D<=iDIV2)and Flag do
                           begin
                             if i mod D =0 then Flag:=false;
                             D:=D+1
                           end;
                           if Flag then Writeln(i)
                         end
    End
END.