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

program z25;

{Найти натуральные числа из данного диапозона

у которых колич.делителей является произведением

двух простых чисел.}

uses crt;

var i,j,n,k,kk,a,fl,l:longint;

    b:array[1..100]of longint;label m,met;

 begin

  clrscr;

   write('введите диапозон через пробел:');readln(n,k);

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

   met:while a<=100 do

   begin

    for i:=2 to a-1 do if a mod i=0 then fl:=1;

     if fl=0 then begin

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

                  end;    fl:=0;inc(a);

   end;i:=n;

   m:while i<=k do

    beginkk:=0;

     for j:=1 to i do if i mod j=0 then inc(kk);

      for j:=1 to trunc(kk/2) do

       for l:=1 to trunc(kk/2) do

        if kk=b[j]*b[l] then begin

                              writeln(i);inc(i);goto m;

                             end; inc(i);

    end;

 readln;

end.