вот код, как и обещал не очень долго:
Code
function prost(a : integer) : boolean;
var b : integer;
begin
for b:=2 to a div 2 do
if a mod b=0 then
prost:=true;
end;
var x, y : integer;
begin
cls;
read(x);
for y:=2 to x div 2 do
if (x mod y=0)and(prost(y)=false)and(prost(x div y)=false) then begin
write('Можно');
break;
end
else begin
write('Нельзя');
break;
end;
end.