program testArray; uses wincrt;
var
   temp: array[0..23] of byte;
   i, som: integer;
begin
   temp[ 0]:=12; temp[ 1]:=12; temp[ 2]:=11; temp[ 3]:=11;
   temp[ 4]:=10; temp[ 5]:=11; temp[ 6]:=13; temp[ 7]:=14;
   temp[ 8]:=15; temp[ 9]:=18; temp[10]:=19; temp[11]:=19;
   temp[12]:=20; temp[13]:=22; temp[14]:=23; temp[15]:=22;
   temp[16]:=22; temp[17]:=21; temp[18]:=21; temp[19]:=19;
   temp[20]:=18; temp[21]:=17; temp[22]:=16; temp[23]:=14;

   i:=0;
   som:=0;
   repeat
      som:=som+temp[i];
      i:=i+1
   until i>23;
   writeln('Gemiddelde temperatuur = ', som/24:4:2)
end.