Var
n,k,x,i,j: integer;
begin
write ('Введите число: ');
readln (n);
writeln ('Простые делители числа:');
x:=0;
for i:=2 to n do begin
if n mod i =0
then begin
k:=0;
for j:=2 to i div 2 do
if i mod j=0
then begin k:=1; break end;
if k=0 then begin writeln (i); x:=1; end;
end;
end;
if x=0 then writeln ('Нет простых делителей');
end.
-------------------Пример:--------------------
Введите число: 42
Простые делители числа:
2
3
7
---------------------------------------------------