Инициализация вектора

Задача:

Сформируйте и выведите на экран вектор из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу; 1-й элемент равен текущему индексу, увеличенному в 10 раз; 2-й элемент равен целой части от деления случайного числа на текущий индекс. 3-й элемент равен разности двух предыдущих элементов.

Код:


program v9;
var A: array[1..9] of integer;
    i: integer;
Begin
Randomize;
for i:= 1 to 3 do begin
A[3*i-2]:= (3*i-2)*10;
A[3*i-1]:= (Random(100) div (3*i-1));
A[3*i]:= abs(A[3*i-1] - A[3*i-2]);
Write(A[3*i-2], ' ',A[3*i-1], ' ',A[3*i], ' ');
                  end;
Readln;
End.