Сформировать линейную таблицу А(10), каждый элемент которой равен утроенному порядковому номеру

var  a:array[1..10] of integer;  i:integer;begin  for i:=1 to 10 do begin    a[i]:=3*i;    Write(a[i],' ')    end;  Writelnend.