помогите мне решить полностью 2 задачи по информатике

(define список-месяцев '(январь февраль март апрель май июнь июль август сентябрь октябрь ноябрь декабрь) )
(define (функция1 n) (list-ref список-месяцев (- n 1)))
(функция1 9)
(define (функция2 x) (* x (/ pi 180)))
(функция2 90)
- - -
вывод программы:
сентябрь
1.5707963267948966

Препод на военной кафедре:
- Температура кипения воды, товарищи студенты, составляет 90 градусов.
Студент (с места) :
- 100, трищ полковник!
Препод (лезет в справочник) :
- Действительно! Извините, я перепутал с прямым углом.

Вот ты как тот препод. Теперь твоя процедура:

procedure TOY(m:integer);
const a:array[0..3] of string=('Winter','Spring','Summer','Fall');
begin
m:=m mod 12;
writeln(a[m div 3]);
end;

> r=p/180*градус цельсия

Я плакалъ ..

че за язык то?
На С++ +STL:
std::map<int,char*> mapMonths;
mapMonths[1] = "январь";
mapMonths[2] = "февраль";
... и т. д.
Вывод на экран:
cout << mapMonths[сюда число 1-12] << endl;

ОМГ, в первом вопросе написано же "времени года", нет такого времени года как допустим "январь" =)

Тут даже список месяцев не нужен, просто берем конструкцию if then и реализуем вывод времени года в зависимости от числа.

Мда.. . (градус цельсия)

1) Массив строк с именами месяцев, запрашиваемый номер - индекс массива, т. е. вывести элемент с этим индексом.
2) Внутри функции записать приведённую формулу, только "градус цельсия" заменить на переменную, где будет значение градуса.