کمک برای نوشتن یک برنامه (حاصلضرب عوامل اول )

سلام میشه این برنامه رو به زبان پاسکال برام بنویسید؟
در این تمرین میخواهیم یک عدد را به عوامل اول تجزیه کنیم و به صورت حاصلضرب این عوامل نشان دهیم. به عنوان مثال عدد 126 را میتوان به صورت حاصلضرب عوامل اول آن به صورت 7*3*3*2 نوشت.

ورودی:
ورودی شامل چندین خط است که در هر خط یک عدد بزرگتر از 1 قرار دارد. در خط آخر عدد 0 (به معنی خاتمه اعداد) قرار دارد.

خروجی:
به ازای هر ورودی (بجز عدد 0 آخر)، در خروجی یک خط چاپ می شود که عدد را به صورت حاصل ضرب عوامل اول آن نشان می دهد. در این خط ابتدا خود عدد به همراه یک علامت مساوی (=) و در ادامه عبارت نشاندهنده حاصلضرب عوامل اول چاپ می شود. دقت کنید که این اعداد حتما باید به صورت صعودی مرتب شده باشند و با علامت ضرب (*) از هم جدا شده باشند. ضمنا در این خط هیچ علامت فاصله (یا space) وجود ندارد.

نمونه ورودی:
126
12
99
0

نمونه خروجی:
126=2*3*3*7
12=2*2*3
99=3*3*11

سلام شادی خانم می تونین برنامه مورد نظرتونو از ادرس زیر بردارید

کد:

---

program test ;
  uses crt ;
  const g = 300 ;
  type
      arr = array[1..g] of integer ;
        var
      x , y : arr ;
      i , j , k , n , m , l , o: integer ;
      key : boolean ;
begin
    clrscr;
    {written by: navid}
    writeln('pleas enter n number, for finsh insert 0:');
    i := 0;
    repeat

          i := i + 1;
        readln(y[i]);

    until  y[i] = 0;
    l := i - 1;
    o := 1;
    while o <= l do
      begin
        n := y[o];

        m := n div 2;
        x[1] := 2 ;
        k := 1 ;
        for i := 3 to m do
          begin
            key := true ;
            j := 1 ;
              while (j <= k) and key do
                if (i mod x[j]) = 0 then
                    key := false
                else
                    j := j + 1;
                if key then
                    begin
                          k := k + 1;
                          x[k] := i
                    end ;
          end;
        write('the result for number ',y[o],' is : ');
        i:=1;
        while ( i <= k ) do
            begin
              if (n mod x[i]) = 0 then
                  begin
                    write(x[i],' * ');
                    n := n div x[i];
                    i := i - 1;
                  end;
              i:=i+1;
            end;
            writeln;
            o := o + 1;
        end;
    readln;
end.

---

---

با سلام

تشكر از كاربر amir_turkism بابت راهنمايي عالي شون


روزگار خوش