Срочно нужна помощь : надо решить задачи по информатике.(язык - Раscal abc) 1. Дан ряд

Решение задачи:
1.
Var a: array[1..100] of integer;
i, n, sum: integer;
otvet: real;
begin
randomize;
write('Введите размерность n = ');
readln(n);
write('Произвольный ряд чисел: ');
sum:=0;
for i:=1 to n do
begin
a[i]:=random(1, 100);
write(a[i],' ');
if odd(a[i]) = false then sum:=sum+a[i]; //Вычисление суммы четных чисел.
end;
writeln;
otvet:=sqrt(sum);
if sum = 0 then write('Ответ: данный ряд не имеет четных чисел') else
write('Ответ: корень квадратный из суммы всех четных чисел = ', otvet);
end.
2.
Var b: array[1..100] of integer;
i, n, pr: integer;
begin
randomize;
write('Введите количество элементов массива n = ');
readln(n);
write('Массив: ');
pr:=1;
for i:=1 to n do
begin
b[i]:=random(1, 10); //Присвоение элементу случайного числа из диапазона от 1 до 10.
write(b[i],' ');
pr:=pr*b[i]*b[i];
end;
writeln;
write('Ответ: произведение квадратов всех элементов массива = ', pr);
end.
3.
Var c: array[1..100] of integer;
i, n, summa: integer;
begin
randomize;
write('Введите размерность n = ');
readln(n);
write('Произвольный ряд чисел: ');
summa:=0;
for i:=1 to n do
begin
c[i]:=random(1, 100);
write(c[i],' ');
if odd(i) = true then summa:=summa+c[i];
end;
writeln;
write('Ответ: сумма элементов, стоящих на нечетных местах = ', summa);
end.