помогите написать 3 программы в паскале

[michaelmaksimov]

1)Составить алгоритм вычисления выражения: 1^1+2^2+3^3+...+n^n.
2)Известны данные о среднемесячной температуре за год. Определить, какая была самая высокая температура летом и самая низкая - зимой.
3)Дан одномерный массив. Найти номер элемента, делящегося на 5.
Очень прошу, помогите! Спасибо.

[michaelmaksimov]

вторую не надо уже)

[Stilet]

Составить алгоритм вычисления выражения: 1^1+2^2+3^3+...+n^n.

var s,n:double;
begin
 n:=10;s:=0;
 while n>0 do begin s:=exp(n*ln(n))+s; n:=n-1;end;
 write(s); readln;
end;

Дан одномерный массив. Найти номер элемента, делящегося на 5.

const a[1..5] of integer=(1,2,3,4,5);
var i:integer;
begin
 for i:=1 to 5 do if (a[i] mod 5)=0 then write(i:5); 
 readln;
end.

[Arigato]

В третьей надо добавить break, потому как сказано найти номер элемента, а не номера элементов, то есть только один.