Написать программу которая формирует массив b (n) где n=50; следующим образом b (1)=1, b (2)=4, b (3)=7, b (4)=10 и т.д

Const n=50;
var B:array[1..n] of integer; i:byte;x:integer;

begin
x:=1;
for i:1 to n do
begin
B[i]:=x;
x:=x+3;
end;
end.