Сформируйте и выведете на экран массив из 9ти элементов, каждые 3 последовательных элемента которого составлены по следующему

Program mas;varA: array [1..100] of integer;i, k, f: integer;beginrandomize;k:=-2;for i:=1 to 3 do begin k:=k+3; readln(A[k]); A[k+1]:=(k+1)*10; writeln(A[k+1]); f:=random(90)+9; A[k+2]:=f-A[k+1]; writeln(A[k+2],\'(\',f,\')\'); end;readln;end.Для формирования такого массива запускаем цикл с параметром от 1 до 3, в каждом круге цикла будем формировать по три числа. Параметр k изначально задаем равным -2, чтобы по формуле k:=k+3 получать индексы 1, 4, 7.1, 4, 7 (A[k]) вводим с клавиатуры; 2, 5, 8 - просто индекс k+1 увеличиваем в 10 раз; и для получения 3, 6 и 9 элементов сначала генерируем случайное двухзначное число f, а затем находим его разность с предыдущим элементом. (!)Для проверки это случайное число указывается в скобках. При необходимости, можно убрать этот код и ввести: writeln(A[k+2]);