var
n : integer;
j: integer;
begin
writeln ('Введите целое число');
readln (n);
if n=0 then
writeln ('для нуля лишена смысла')
else if n=1 then
writeln ('нет')
else
writeln ('‘Сомножели числа ', n,' :');
if n<0 then
writeln ('-1, ');
n := -n;
j :=2;
while n> 1 do begin
while (n mod j) = 0 do begin
writeln (j,',');
n := n div j;
end;
j :=j + 1;
end;
end.
не раскладывает на сомножители положительное число, что не так, помогите! плиз