Πρόγραμμα με χαρακτηρισμό βαθμού

Να γίνει πρόγραμμα σε Pascal που να διαβάζει έναν βαθμό από το 0 έως το 20 (επιτρέπονται δεκαδικά ψηφία) και να εμφανίζει τον  αντίστοιχο χαρακτηρισμό:

• Ανεπαρκώς αν ο βαθμός είναι μεγαλύτερος ή ίσος με το 0 και μικρότερος ή ίσος με το 9
• Μέτρια αν ο βαθμός είναι μεγαλύτερος από το 9 και μικρότερος ή ίσος με το 12
• Καλά αν ο βαθμός είναι μεγαλύτερος από το 12 και μικρότερος ή ίσος με το 15
• Πολύ Καλά αν ο βαθμός είναι μεγαλύτερος από το 15 και μικρότερος ή ίσος με το 18
• Άριστα αν ο βαθμός είναι μεγαλύτερος από το 18 και μικρότερος ή ίσος με το 20 

Λύση:

Program vathmos;
var v:real;
Begin
    repeat
        write('Δώσε έναν βαθμό μεταξύ 0 και 20 :');
        readln(v);
    until (v>=0) and (v<=20);
    if (v>=0) and (v<=9) then
    writeln('Ανεπαρκώς');
    if (v>9) and (v<=12) then
    writeln('Μέτρια');
    if (v>12) and (v<=15) then
    writeln('Καλά');
    if (v>15) and (v<=18) then
    writeln('Πολύ Καλά');
    if (v>18) and (v<=20) then
    writeln('Άριστα');
End.