Сконтрольной по информатике

Program arr; var     a: array[1..15] of integer;     count,count_odd,num,sum,mult: integer; begin   count : = 1;   count_odd : = 1;   num : = 3;   sum : = 0;   mult : = 1;   while count < = 15 do       begin           a[count] : = num;           count : = count + 1;           num : = num + 3;       end;   while count_odd < = 15 do       begin           sum : = sum + a[count_odd];           mult : = mult * a[count_odd];           count_odd : = count_odd + 2;       end;   writeln('массив из 15 элементов: 3, 6, 9, 45');   writeln('сумма элементов с нечетными индексами: ', sum);   writeln('произведение элементов с нечетными индексами: ', mult); end.

Var       a: array[1..12] of string;       i: integer; begin       a[1] : = '31';       a[2] : = '28 или 29';       a[3] : = '31';       a[4] : = '30';       a[5] : = '31';       a[6] : = '30';       a[7] : = '31';       a[8] : = '31';       a[9] : = '30';       a[10] : = '31';       a[11] : = '30';       a[12] : = '31';       readln(i);       writeln(a[i]);       end.