Безотлагательно нужна помощь : надобно решить задачки по информатике.(язык - Раscal

Решение задачи:
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.