Помогите решить задачки на паскале я совсем не разбираюсь в этом! 1) Дана таблица…

1) var t: array [1… 12] of real; i: integer; begin for i: =1 to 12 do readln (t[i]); writeln ('Средняя температура зимних месяцев: ', (t[12]+t[1]+t[2]) /3): 0:3); writeln ('Средняя температура весенних месяцев: ', (t[3]+t[4]+t[5]) /3): 0:3); writeln ('Средняя температура летних месяцев: ', (t[6]+t[7]+t[8]) /3): 0:3); writeln ('Средняя температура осенних месяцев: ', (t[9]+t[10]+t[11]) /3): 0:3); end.2) var t: array[1… 10] of integer; c: array[1… 10] of real; i: integer; s,s1: real; begin s: =0; for i: =1 to 10 do begin writeln ('Введите количество товара'); readln (t[i]); end; for i: =1 to 10 do begin writeln ('Введите цену товара'); readln (c[i]); end; for i: =1 to 10 do begin s1: =t[i]*c[i]; s: =s+s1; end; writeln ('Общая стоимость всех покупок: ',s: 0:3); end.