4. Из элементов массива A сформировать массив A той же размерности по правилам: Если номер четный, то B[i]:=i*, если нечетный, то B[i]:=-A[i].
5. Сформировать массив а с помощью датчика случайных чисел целыми числами из интервала [-15,70].
6. Удалить из массива все элементы, которые повторяются, оставить только их первые вхождения, то есть получить массив из различных элементов.

Огромное спасибо!

1)var A,B: array[1..200] of real;N, i: integer;beginwrite('Введите количество элементов массивов A и B: ');readln(N);writeln('Введите значения элементов массива A');for i:=1 to N do read(A[i]);writeln();for i:= 1 to N do if (i mod 2 = 0) then B[i]:=i*A[i]else B[i]:=-A[i];writeln('Массив В:');for i:=1 to N do write(B[i]:2:2,' ');end.2)var A: array[1..200] of integer;N, i: integer;beginwrite('Введите количество элементов массива A: ');readln(N);randomize;for i:=1 to N do     A[i] := random(86)-15;writeln('Массив А: ');for i:=1 to n do write(A[i], ' ');end.