Pascalban, hogy lehetne megoldani a prímtényezőkre bontást?

Viccet félretéve legalább kezdj bele.

1. Írj egy eljárást ami bekéri a felbontandó számot.

2. Írj egy függvényt ami megállapítja egy számról, hogy prim-e. function prim( n longint ) : boolean;

3. Írj egy eljárást ami addig osztja az adott számot az első primmel - 2 - amig maradék nélkül meg van benne. - if szam mod prim = 0 then szam := szam div prim....

Ha nincs meg jöhet a következő prim - ehhez kell a prim függvény - és így tovább addig míg a szám nem 1.

4. A két eljárást tedd be egy főprogramba.

Na már majdnem megírtam a programot is :)