Знайти і вивести всі прості числа до 500

Задачі програмування на розклад чисел на множники.

Задача 1. Знайти і вивести всі прості числа  до 500

const LIMIT = 500;

var i,j,lim : integer;

 begin    writeln;

  for i:=2 to LIMIT do begin

      j:=2; lim:=round(sqrt(i));

      while (i mod j <> 0) and (j <= lim) do inc( j );

      if (j > lim) then write( i,' ' );     end;  end.

Задача 2. Вивести   довільне двоцифрове число як   добуток двох множників.

const LIMIT = 100;

var b,k,i,j,lim: integer;

a: array [1..25]of integer;

begin

  writeln('zuslo <100');    read(b);

  k:=1;

  for i:=2 to LIMIT do begin

      j:=2; lim:=round(sqrt(i));

      while (i mod j <> 0) and (j <= lim) do inc( j );

      if (j > lim) then begin    

             a[k]:=i;

             k:=k+1

 end; end;

{for i:=1 to 25 do begin write('a[',i,']= ', a[i],'  ' );

end;}

 for k:=1 to 25 do begin

      j:=2; {lim:=round(sqrt(b));}

      while (b mod a[k] <> 0) and (j <= b) do inc( j );

      if (b mod a[k] = 0) then begin

             write( 'b = ',  a[k],' *', b div  a[k],';  ' );    end; end;  end.

Задача 3. Вивести  усі двоцифрові числа,  які   можна записати як добуток трьох різних простих множників.

const LIMIT = 100;

var n,b,k,i,j,lim: integer;

a: array [1..25]of integer;

begin

  k:=1;

  for i:=2 to LIMIT do begin

      j:=2; lim:=round(sqrt(i));

      while (i mod j <> 0) and (j <= lim) do inc( j );

      if (j > lim) then begin

                          a[k]:=i;                k:=k+1;  end; end;

 for k:=3to 12 do begin

      if (6*a[k] <= 100) then begin        writeln(6* a[k]  , ';   ' );  end;end;  end.