Линейная таблица содержит 30 элементов. составьте алгоритм заполнения данной таблицы конкретным числовыми значениями, если известно, что значение элемента равно его удвоенному порядковому номеру.

Var a:array[1..30] of integer;
i:integer;
begin
for i:=1 to 30 do
begin a[i]:=2*i;
         write(a[i],' ');
end;
end.