Составьте программы на Паскале по алгоритмам из заданий 3, 4 параграфа 17

Составьте программы на Паскале по алгоритмам из заданий 3, 4 параграфа 17. Выполните эти программы на компьютере.

program zad_5_1_nica;
var T: array [1..12] of real;
i: integer; Twinter, Tspring, Tsummer, Tautumn: real;
BEGIN
writeln ('Введите среднемесячные температуры:');
for i:=1 to 12 do begin
   write ('T[', i, '] = ');
   read (T [i]);
   end;
Twinter:= (T[12]+T[1]+T[2])/3;
Tspring:= (T[3]+T[4]+T[5])/3;
Tsummer:= (T[6]+T[7]+T[8])/3;
Tautumn:= (T[9]+T[10]+T[11])/3;
writeln ('Средняя температура зимой = ', Twinter:4:2, 'градусов');
writeln ('Средняя температура весной = ', Tspring:4:2, 'градусов');
writeln ('Средняя температура летом = ', Tsummer:4:2, 'градусов');
writeln ('Средняя температура осенью = ', Tautumn:4:2, 'градусов');
END.

program zad_5_2_nica;
var T: array [1..10] of real;
C: array [1..10] of real;
i: integer; AllPrice: real;
BEGIN
AllPrice:= 0;
for i:=1 to 10 do begin
   writeln (i, ' товар');
   write ('Количество товара: ');
   read (T[i]);
   write ('Цена за единицу товара: :');
   read (C[i]);
   AllPrice:= AllPrice + T[i]*C[i];
   writeln ('- - - - - - -');
   end;
writeln ('Общая стоимость покупок = ', AllPrice, ' руб.');
END.