Много баллов !!!! Решите пожалуйста

1 Задача

var

 temp:real;

i, j: integer;

 A: array[1..8] of real;

begin

i:=8;

repeat

begin

writeln('Введите целое число');

read(temp);

A[i]:=temp;

i:=i-1;

end;

until (i=0);

 for i := 1 to 8 do // выводим на экран

   write(A[i]:5);  

end.

2 Задачка

var

 number, sum_of_posit_elements_in_array, number_of_posit_elements_in_array: integer;

 arr: array[1..7] of integer;

begin

 for number := 1 to 7 do

 begin

   arr[number] := random(50)-30;

   write(arr[number]:5);

   if arr[number]gt;0 then

   begin

   sum_of_posit_elements_in_array := sum_of_posit_elements_in_array + arr[number];

   number_of_posit_elements_in_array:= number_of_posit_elements_in_array + 1;

   end;

 end;

 writeln();

 writeln('Сумма положительных элементов массива: ', sum_of_posit_elements_in_array);

 writeln('Количество положительных элементов массива: ', number_of_posit_elements_in_array);

end.

3 Задачка

var

 number, sum_of_posit_elements_in_array, number_of_posit_elements_in_array: integer;

 arr: array[1..9] of integer;

begin

 writeln('Начальный массив');

 for number := 1 to 9 do

 begin

   arr[number] := random(40)-20;

   write(arr[number]:5);

   if number mod 2 = 0 then

   arr[number]:=arr[number]+1

   else

   arr[number]:=arr[number]*2;

 end;

 writeln();

 writeln('Преобразованный массив');

 for number := 1 to 9 do

  write(arr[number]:5);

end.