Άσκηση με GOTO

Ξαναγράψτε το παρακάτω σύνολο εντολών έτσι ώστε να
ικανοποιεί τις αρχές του δομημένου προγραμματισμού
          σ <-- 0
          μ <-- 1
       5: ΑΝ μ > 20 ΤΟΤΕ GOTO 15
          α <-- 1
    10: ΔΙΑΒΑΣΕ λ
          α <-- α*λ
          ΑΝ α < 1890 ΤΟΤΕ GOTO 10
          σ <-- σ+α
          μ <-- μ+1
          GOTO 5
    15: ΓΡΑΨΕ σ

Λύση

       σ <-- 0
       μ <-- 1
       ΟΣΟ μ <= 20 ΕΠΑΝΑΛΑΒΕ
            α <-- 1
            ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
                 ΔΙΑΒΑΣΕ λ
                 α <-- α*λ
            ΜΕΧΡΙΣ_ΟΤΟΥ α >= 1890
            σ <-- σ+α
            μ <-- μ+1
       ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
       ΓΡΑΨΕ σ