Помощь в написании программы

[Тетрадь]

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

Код: Выделить всё

uses Crt;
var
i,k,n,s:integer;
begin
ClrScr;
Write('Введите число:');
Readln(n);
for i:=2 to n do begin
s:=0;
for k:=1 to i div 2 do begin
if i mod j=0 then inc(s);
end;
if s=1 then Writeln(i);
end;
begin
\\\\ then writeln('Можно')
else writeln('Нельзя');
end;
ReadKey;
end.

[Хыиуду]

Оформить определение простоты числа в функцию. Пройтись в цикле по всем i от 2 до N/2, для каждого i посмотреть - если i простое, и если N/i простое, то N представляется в виде произведения двух простых

[Тетрадь]

Да это понятно. я не могу это решение отразить в коде