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

[Тетрадь]

Составить программу для проверки, можно ли N представить в виде произведения двух простых чисел. Паскаль. В чем ошибка, как доработать?

function prost (i:integer):integer;
var
n,j,s :integer;
begin
for i:=2 to n do begin
s:=0;
for j:=1 to i div 2 do begin
if i mod j=0 then inc(s);
end;
if s=1 then Writeln(i);
end;
end;

var
  N, i: integer;

begin
  write('N = ');
  readln(n);
  i := 2; 
  While n mod i > 0 do
    if i = 2 then inc(i)
    else inc(i, 2);
  writeln;
  if prost(i) and prost(n div i) then writeln('Можно')
  else writeln('Нельзя');
  readln
end.
end.

[min@y™]

Это вам не это! (© дикий прапор, "ДМБ")

function prost (i: integer): integer;
var
  n, j, s :integer;
begin
  for i:= 2 to n do // немного странный параметр цикла, да? И конечное значение что-то не того...
    begin
      s:= 0;

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

      if s = 1
        then Writeln(i);
    end;
    
  { Это ж всё-таки функция, да?
    Она жеж должна возвращать какое-то значение типа integer, да? }
end;

Как только отформатируешь код по-человечески, тут же все косяки вылазят на свет.

[Тетрадь]

так

prost:=s;

?

[min@y™]

Как звучит задание в оригинале?
Разрядность Integer какая? 16 бит со знаком? или 32? Про 64 не спрашиваю.

[Тетрадь]

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

[min@y™]

Это важно.

Разрядность Integer какая?

[Тетрадь]

Я не знаю, что это.integer есть integer. Мы не проходили никакую разрядность.

[min@y™]

Я не знаю, что это.integer есть integer. Мы не проходили никакую разрядность.

Перефразирую. Максимальное число у тебя в этом типе каҡое?
32767 или
65535 или
2147483647 или
4294967295

[Тетрадь]

вот 32767

[min@y™]

вот 32767

15 бит и знак.
Я вот к чему веду: в начале можно найти все простые числа в диапазоне от 0 до 32767, запомнить их и использовать для поиска? По одному биту на число - это 32768/8 = 4096 байт = 4 кбайт массив.