Tự viết một chương trình phân tích ra thừa số nguyên tố bằng Pascal

program phantich;
uses crt;
const max=100;
label l1;
var a,b:array[1..max]of word;
    i,k,n:longint;
    s:char;
begin
l1:  clrscr;
    write('Nhap vao so n: ');readln(n);
    for i:=1 to max do
        b[i]:=0;
    k:=1;
    a[1]:=1;
    i:=2;
    while i<=n do
    begin
          if n mod i = 0 then
          begin
              if a[k]=i then
                    b[k]:=b[k]+1
              else
              begin
                    k:=k+1;
                    a[k]:=i;
                    b[k]:=1;
              end;
              n:=n div i;
          end
          else
              i:=i+1;
    end;
    write(1);
    for i:=2 to k do
        write('x',a[i],'^',b[i]);
    writeln;
    write('Co muon tinh nua khong Y/N ? ');readln(s);
    if s='y' then goto l1;

end.