Составить программу для проверки, можно ли заданное натуральное число 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