Ada. Typy Wyliczeniowe

[19Radek88]

Napisać program w języku Ada tworzący indeksowaną typem wyliczeniowym 'przedmioty' (conajmniej 6 przedmiotów) tablicę wartości rzeczywistych 'oceny'. Program pobiera od użytkownika wartości ocen i liczy ich średnią. Następnie wypisuje przedmioty z których ocena jest większa od średniej.

Poczatek programu:

Kod: Zaznacz cały

WITH Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;
USE Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;

PROCEDURE Kol1_Gr3_Zad2 IS
   
      TYPE Przedmioty IS (Polski, Angielski, Matematyka, Fizyka, Chemia, Historia);
      Oceny : ARRAY (Przedmioty'RANGE) OF Float;    
      Licznik: Integer := 0;
      Suma : Float := 0.0;
      Srednia: Float;
      BEGIN
         
         FOR I IN Przedmioty'RANGE LOOP
            
            Put("Podaj ocene z przedmiotu: ");
            Get(Oceny(I));
            Licznik := Licznik + 1;
            Suma := Suma + Oceny(I);
         END LOOP;
                
         Put("Srednia artytmetyczna ocen: "); 
         Srednia := (Suma / (Float(Licznik)));
         Put(Srednia,2,2,0);
END Kol1_Gr3_Zad2;

Porszę o dopisanie drugiej części polecenia. Nie wiem jak sprawić by program wypisywał nazwy przedmiotów np. 'Fizyka'. (cos z enumeration?.. nie wiem )...