Program alturas_vetores_arrays ;
var i: integer; 
    VT: array [1..20] of integer;
   
 Begin
  //Sequencia 1
  for i:=1 to 20 do 
    VT[i]:=i*3;
  for i:=1 to 20 do
   writeln (VT[i] );
   
  //Sequencia 2
  for i:=1 to 20 do 
    VT[i]:=3*i-3;
  for i:=1 to 20 do
   writeln (VT[i] );
  
  //Sequencia 3
    VT[1]:=1;
  for i:=2to 10 do 
    VT[i]:=VT[i-1]*i;
  for i:=2to 10 do
   writeln (VT[i] );
   
   //Sequencia 4
    VT[1]:=1;
    VT[2]:=2;
  for i:=3 to 10 do 
    VT[i]:=VT[i-2]*VT[i-1];
  for i:=3 to 10 do
   writeln (VT[i] ); 
  
    
 End.
