Нахождения всех натуральных чисел, которые можно представить в виде произведения двух простых чисел

uses
  crt;
 
var
  p, i, j: integer;
  prosto: array[1..10000] of boolean;
 
 
begin
  write('P=');
  read(p);
  for i := 2 to p do
    prosto[i] := true;
  i := 2;
  while sqr(i) <= p do
  begin
    j := 2;
    while i * j <= p do
    begin
      prosto[i*j] := false;
      j := j + 1;
    end;
    i := i + 1;
  end;
  for i := 2 to p do
    if prosto[i] = true then
      write(i, ' ');
end.

uses crt;
 
var
p, i, j, s: integer;
prosto: array[1..10000] of boolean;
 
 
begin
write('P=');
read(p);
s:=1;
for i := 2 to p do
prosto[i] := true;
i := 2;
while sqr(i) <= p do
begin
j := 2;
while i * j <= p do
begin
prosto[i*j] := false;
j := j + 1;
end;
i := i + 1;
end;
for i := 2 to p do
if prosto[i] = true then begin write(i, ' '); s:=s*i;
end;
writeln;
writeln('s = ', s);
 
end.

uses crt;
var a, b : array[1..255] of integer;
    i, j, k, m : byte;
    p, s : integer;
begin
     clrscr;
     writeln('Введите p');
     readln(p);
     //Определяем простые числа
     k:=0;
     m:=0;
     for i:=1 to p do begin
     a[i]:=i;
     for j:=1 to i do
     if (a[i] mod j=0) then inc(m); //Определяем количество делителей
     if m=2 then begin inc(k); b[k]:=a[i]; end; //В простых числах их 2
     m:=0;
     end;
     writeln;
     for i:=1 to k do
     write(b[i]:3);
     writeln;
     //Считаем
     s:=1;
     for i:=1 to k-1 do
     for j:=i+1 to k do begin
     s:=b[i]*b[j];
     writeln(s);
     end;
 
end.

uses crt;
 
var
b : array[1..255] of integer;
p, i, j, k, s: integer;
prosto: array[1..10000] of boolean;
 
 
begin
clrscr;
write('P=');
read(p);
k:=0;
for i := 2 to p do
prosto[i] := true;
i := 2;
while sqr(i) <= p do
begin
j := 2;
while i * j <= p do
begin
prosto[i*j] := false;
j := j + 1;
end;
i := i + 1;
end;
for i := 2 to p do
if prosto[i] = true then begin inc(k); b[k]:=i;
write(i, ' ');
end;
writeln;
s:=1;
     for i:=1 to k-1 do
     for j:=i+1 to k do begin
     s:=b[i]*b[j];
     writeln(s);
     end;
end.