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

program z3;

{Встречаются ли в разложении числа на простые

 множители одинаковые множители}

 uses crt;

 var b:array[1..1000] of longint;

     c:array[1..100] of longint;

     i,j,a,k,flag:longint;label met;

 begin

  clrscr;

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

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

   met:while a<=k 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;

        j:=0;i:=1;

     while k>1 do

     if k mod b[i]=0 then begin

                           inc(j);c[j]:=b[i];k:=k div b[i];

                          end

                     else inc(i);

     for i:=1 to j-1 do

     for a:=i+1 to j do

     if c[i]=c[a] then begin

                        write('повторяются');readln;halt;

                       end;

     write('не повторяются');readln;

 end.