помогите срочно, очень нужно

УСЛОВИЕ: Задать случайным образом 10 элементов массива: целые числа из интервала от -5 до 50. Найти:
1) сумму нечётных элементов;
___________________________________________
Program Massivsumma;
var
a : array[-5..50] of integer;
n : integer;
summa : integer;
begin
randomize;
Write ('n='); Readln (n);
summa:=0;
for n:= 1 to 10 do
begin
write ('введите число'); readln (a[n]);
if a[n] mod 1 = 0 then summa:=summa+(a[n]);
writeln('сумма элементов с нечетными номерами: ',summa);
end;
end.

гирь. Находчивый продавец Семен Семенович сообразил, что ему никогда еще не приходилось ничего взвешивать тяжелее 40 килограммов и понял какие 4 гири ему нужны.Определите и Вы какие четыре гири понадобятся Семену Семеновичу, чтобы он смог на чашечных весах взвесить любое количество целых килограммов от 1 до 40.В ответе укажите через пробел в порядке возрастания 4 числа - веса гирь.ПОЖАЛУЙСТА ПОМОГИТЕ!!!!!!!!!!!!!!СРОЧНО!!!!!!

вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль

Задание:напишите команды для этого рисунка!
FOR...
CIRCLE...
NEXT...

FOR....
CIRCLE...
NEXT...