1) uses crt;

const n=10;

var a:array[1..n] of integer;

  i,k:integer;

begin

    for i:=1 to n do

    begin

         a[i]:=i*2+1

    end;

    for i:=1 to n do

        write(a[i]:3);

end.

2) uses crt;

const n=10;

var a:array[1..n] of integer;

  i,k:integer;

begin

    for i:=1 to n do

    begin

         a[i]:=i*3

    end;

    for i:=1 to n do

        write(a[i]:3);

end.