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

Месяц1 2 3 4 5 6 7 8 9 10 11 12
Температура−23−19−7 0 10 13 27 23 13 6−2−12

 

Тогда TEMPERATURA [9]= 

​

думаю что будет всё правильно

var

x: real;

begin

readln(x);

writeln(round(x));

end.

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.