Нужна по ответить на эти три вопроса

Var a: array[1..12]of real; i: integer; s1,s2,s3,s4: real; begin   for i: =1 to 12 do   begin   writeln('введите среднемесячную температуру за ',i,' месяц: ');   read(a[i]);   if i< =3 then s1: =s1+a[i] else   if (i> 3)and(i< =6) then s2: =s2+a[i] else   if (i> 6)and(i< =9) then s3: =s3+a[i] else   s4: =s4+a[i];   end;     writeln('средняя температуры зимних месяцев: ',s1/3);   writeln('средняя температуры весенних месяцев: ',s2/3);   writeln('средняя температуры летних месяцев: ',s3/3);   writeln('средняя температуры осенних месяцев: ',s4/3); end.

Const  n = 5; var  a: array[1..n, 1..n] of byte;   i, j: integer; begin  for i : = 1 to n do    for j : = 1 to n do    begin      if (abs(i - j) = 3) or ((abs(i - j) = 1) and ((i = 1) or (j = 1) or (i=5) or (j=   then a[i, j] : = 0 else a[i, j] : = 1;     end;   for i : = 1 to n do    begin    for j : = 1 to n do      write(a[i, j]);     writeln;   end; end.