Εξαφανίστε την GOTO

Ξαναγράψτε το παρακάτω σύνολο εντολών έτσι ώστε
να ικανοποιεί τις αρχές του δομημένου προγραμματισμού

     10 :  ΔΙΑΒΑΣΕ ΕΤΟΣ
             ΓΡΑΨΕ 'ΕΥΤΥΧΙΣΜΕΝΟ ΤΟ',  ΕΤΟΣ
             ΑΝ ΕΤΟΣ < > 2013 ΤΟΤΕ GOTO 10

Απάντηση

            ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
                  ΔΙΑΒΑΣΕ ΕΤΟΣ
                  ΓΡΑΨΕ 'ΕΥΤΥΧΙΣΜΕΝΟ ΤΟ',  ΕΤΟΣ
            ΜΕΧΡΙΣ_ΟΤΟΥ ΕΤΟΣ  = 2013