Напишите программу, которая заполняет массив A размерностью 40 следующими данными:
Элемент 1-10 - случайные целые числа (из диапазона от 0 до 20)
Элемент 11-20 - случайные целые числами (из диапазона от -10 до 40)
Элемент 21-30 - целые числа, введенные пользователем
Элемент 31-40 - правило заполнения: каждый элемент массива равен сумме двух предыдущих.
Весь массив выводится на экран в одну строку.

const n = 40;var a:array [1..n] of integer;i:integer;begin  for i:=1 to 10 do a[i]:=random(21);  for i:=11 to 20 do a[i]:=random(51)-10;  for i:=21 to 30 do readln(a[i]);  for i:=31 to 40 do a[i]:=a[i-2]+a[i-1];  for i:=1 to 40 do write(a[i],' ');end.Тестовое решение:123456789013 15 17 14 3 2 20 7 14 8 29 34 28 9 7 32 36 -2 16 22 1 2 3 4 5 6 7 8 9 0 9 9 18 27 45 72 117 189 306 495