,x^?Primzahltester 1ArialArial ^:^RArialArial Eingabe von n aus IN^bRArialArial t := 0 # Teileranzahl auf 0^RArialArial i := 1 # Laufvariable auf 1^ArialArial i <= n ?XX6ArialArial  n durch i teilbar ?ArialArial t := t+1# Teileranzahl erhhenArialArial ArialArial i := i+1# Laufvariable erhhen^6ArialArial t = 2?# Teilerzahl = 2?^^ArialArial  Ausgabe von:n ist eine PrimzahlArialArial  Ausgabe von:n ist keine Primzahl