разложение на простые множители

[pakusya]

спасибо sergeix за решение! но так как я только в начале изучения паскаля преподам не очень понравится решение со строками. поэтому, не без помощи книг, решила вот так:
var
a,i,k:integer;
begin
write('ввести последовательность')
readln('n');
k:=0;
for i:=1 to n do
begin
write('задать значение a=');
readln(a);
if a=0 then
k:=k+1;
end;
if k=0 writeln('отрицательных чисел нет');
else writeln('кол-во отриц. чисел=',k);
end.
но почему-то она не работает. помогите пожалуйста найти ошибки.
и если несложно, помогите решить задачу:
дано натуральное число N разложить его на простые множители и вывести результат в виде(например: 12=1*2*2*3.)

[Ламер_001]

ну разве что после первого write в конце ";" поставить)
только при чем тут разложение на простые множители?)))

[konj]

Сообщение от pakusya

дано натуральное число N разложить его на простые множители и вывести результат в виде(например: 12=1*2*2*3.)

program lab21;

{$APPTYPE CONSOLE}

Var n,I,j:word;
F:Byte;
Begin
Write('vvedite natyralnoe chislo:');
Readln(n);
Write(n:6,'=1'); {любое число имеет множитель 1}
F:=0;
J:=n;
for I:=2 to n div 2 do
begin
if j mod I=0 then
begin
f:= 1; {найден множитель больше 1}
while j mod i = 0 do
{цикл определяет, сколько множителей I в исходном числе N}
begin
write('*',i);
j:=j div I
end;
end;
end;
If f=0 then writeln('*',n);
Readln
End.