Листинг программы

program z4;{Найти все простые делители натурального числа N}

uses crt;

var i,n,j,a,flag:longint;

    b:array[1..1000] of longint;label met;

 begin

  clrscr;

   write('Введите число: ');readln(n);

   b[1]:=2;a:=3;j:=1;flag:=0;

   met:while a<=n do

        begin

         for i:=2 to a-1 do

         if a mod i=0 then flag:=1;

         if flag=0 then begin

                         inc(j);b[j]:=a;inc(a);goto met;

                        end;

         flag:=0;inc(a);

        end;

   for i:=1 to j do if n mod b[i]=0 then write(b[i],'  ');readln;

 end.