a86.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

var f:text;
   n,i:integer;
begin
assign(f,'descompun.txt');
rewrite(f);
write ('n=');readln(n);
while n<>0 do begin
              while n<>1 do begin
                    for i:=2 to n do
                        while n mod i=0 do begin
                                          write(f,i,' ');
                                          n:=n div i;
                                          end;
                             end;
              write('n=');readln(n);
              writeln(f);
              end;
close(f);
readln;
end.