Назовём данную таблицу TEMPERATURA.

Месяц 1 2 3 4 5 6 7 8 9 10 11 12
Температура −21 −15 −9 1 8 14 21 26 10 7 −4 −10
Тогда TEMPERATURA [12]=

Объяснение:

Температура[12]= -10

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.

var

  i,s: longint;

begin

  for i: =20 to 60 do if i mod 5=0 then inc(s,i);

writeln(s);

end.