ο λιγο βελτιωμενος κωδικας

οντως ειμαι μαθητης της 1ης γυμνασιου,δεν εχω καποιο λογο να πω ψεματα

ευχαριστω παντως!
ΠΡΟΓΡΑΜΜΑ αριθμομηχανή
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: α, β, γ, δ, μο, σ
ΑΚΕΡΑΙΕΣ: μ
ΧΑΡΑΚΤΗΡΕΣ: χ
ΑΡΧΗ
δ <- 0
ΓΡΑΨΕ 'Γράψτε τον αριθμό που αντιστοιχεί στην πράξη που θέλετε να εκτελέσετε: Πρόσθεση=1, Αφαίρεση=2, Πολλαπλασιαμός=3, Διαίρεση=4, Μέσος Όρος=5, Τετραγωνική Ρίζα=6:'
ΔΙΑΒΑΣΕ γ
ΑΝ γ = 1 ΤΟΤΕ
β <- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Εισάγετε έναν αριθμό:'
ΔΙΑΒΑΣΕ α
β <- β + α
ΓΡΑΨΕ 'Θέλετε να συνεχίσετε ν/ο?'
ΔΙΑΒΑΣΕ χ
ΜΕΧΡΙΣ_ΟΤΟΥ χ = 'ο' Η χ = 'Ο' Η χ = 'οχι' Η χ = 'ΟΧΙ' Η χ = 'o' Η χ = 'O' Η χ = '0'
ΓΡΑΨΕ 'Το αποτέλεσμα της πρόσθεσης είναι:', β
ΑΛΛΙΩΣ_ΑΝ γ = 2 ΤΟΤΕ
ΓΡΑΨΕ 'Εισάγετε τον μειωτέο:'
ΔΙΑΒΑΣΕ α
ΓΡΑΨΕ 'Εισάγετε τον αφαιρετέο:'
ΔΙΑΒΑΣΕ β
δ <- α - β
ΓΡΑΨΕ 'Το αποτέλεσμα της αφαίρεσης είναι:', δ
ΑΛΛΙΩΣ_ΑΝ γ = 3 ΤΟΤΕ
β <- 1
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Εισάγετε έναν αριθμό:'
ΔΙΑΒΑΣΕ α
β <- α*β
ΓΡΑΨΕ 'Θέλετε να συνεχίσετε ν/ο?'
ΔΙΑΒΑΣΕ χ
ΜΕΧΡΙΣ_ΟΤΟΥ χ = 'ο' Η χ = 'Ο' Η χ = 'οχι' Η χ = 'ΟΧΙ' Η χ = 'o' Η χ = 'O' Η χ = '0'
ΓΡΑΨΕ 'Το αποτέλεσμα του πολλαπλασιασμού είναι:', β
ΑΛΛΙΩΣ_ΑΝ γ = 4 ΤΟΤΕ
ΓΡΑΨΕ 'Εισάγετε τον διαιρετέο:'
ΔΙΑΒΑΣΕ α
ΓΡΑΨΕ 'Εισάγετε τον διαιρέτη:'
ΔΙΑΒΑΣΕ β
ΑΝ β <> 0 ΤΟΤΕ
δ <- α/β
ΓΡΑΨΕ 'Το αποτέλεσμα της διαίρεσης είναι:', δ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Δεν μπορείτε να διαιρέσετε κανέναν αριθμό με το 0'
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ γ = 5 ΤΟΤΕ
μ <- 0
σ <- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Εισάγετε έναν αριθμό:'
ΔΙΑΒΑΣΕ α
μ <- μ + 1
σ <- σ + α
ΓΡΑΨΕ 'Θέλετε να συνεχίσετε ν/ο?'
ΔΙΑΒΑΣΕ χ
ΜΕΧΡΙΣ_ΟΤΟΥ χ = 'ο' Η χ = 'Ο' Η χ = 'οχι' Η χ = 'ΟΧΙ' Η χ = 'o' Η χ = 'O' Η χ = '0'
μο <- σ/μ
ΓΡΑΨΕ 'Ο μέσος όρος των αριθμών είναι:', μο
ΑΛΛΙΩΣ_ΑΝ γ = 6 ΤΟΤΕ
ΓΡΑΨΕ 'Εισάγετε τον αριθμό:'
ΔΙΑΒΑΣΕ α
β <- α^(1/2)
ΓΡΑΨΕ 'Η τετραγωνική ρίζα του αριθμού ', α, ' ειναι: ', β
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Πρέπει να κάνετε πρόσθεση(1),αφαίρεση(2),πολλαπλασιασμό(3),διαίρεση(4),να υπολογίσετε τον μέσο όρο κάποιων αριθμών(5) ή να υπολογίσετε την τετραγωνική ρίζα ενός αριθμού(6).'
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Ευχαριστώ.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ