Здравствуйте) помогите составить задачи по паскалю) 
задачи на такую  тему: Составление, ввод, трансляция и
исполнение программ, реализующих 
циклические алгоритмы  и типовые
операции с одномерными массивами

var  j, n: integer;  x: array[0..100] of double;begin  Write('Введите значение n: ');  Readln(n);  { Необходимо задать значения x[0], x[1] }  x[0] := 1; x[1] := 1;  for j := 2 to n do  begin    x[j] := sqr(cos(x[j - 1])) + sqrt(abs(ln(x[j - 2])));    x[j - 2] := x[j - 1]; x[j - 1] := x[j];    Write(x[j]:0:5, ' ')  endend.Тестовое решение:Введите значение n: 100.29193 2.02679 1.03442 0.44511 1.71431 0.75463 1.06134 0.48185 1.63972 const  n = 100;var  k, m: integer;  b: array[1..n] of real;  s: real;begin  Write('Введите значение m: ');  Readln(m);  Randomize;  s := 0;  for k := 1 to m do  begin    b[k] := 50 * Random - 25;    s := s + cos(b[k]) + ln(abs(b[k]))  end;  s := s + 2.4e-2;  Writeln(s)end.Тестовое решение:Введите значение m: 1014.8684009707635const  n = 10;var  x: array[1..n] of integer;  s, i: integer;begin  s := 0;  Randomize;  Write('Элементы массива: ');  for i := 1 to n do  begin    x[i] := Random(101) - 50;    Write(x[i]:4);    s := s + x[i]  end;  Writeln;  Writeln('Среднее=', s / n)end.Тестовое решение:Элементы массива:    5 -43  50  38   9  32   4 -12   6  -2Среднее=8.7