Program Pascal Menentukan Suku ke-N dari 3,5,15,19,..........

program Suku_ke_N;

var

  N : integer;

Procedure Isi_N(var N : integer);

begin

  writeln('Menentukan Suku ke-N dari 3,5,15,19,..');

  writeln('--------------------------------------');

  write('Masukan Harga N : ');readln(N);

end;

Function Suku(N : integer) : integer;

begin

  if(N = 1)

    then

      Suku := 3

    else

     begin

       if(N mod 2 = 1)  {suku yg ganjil}

        then

          Suku := Suku(N-1) * N

        else

          Suku := Suku(N-1) + N;

     end;

end;

Procedure Tampil_Suku(N : integer);

begin

  write('Suku ke-',N,' adalah ', Suku(N));

end;

begin

  Isi_N(N);

  Tampil_Suku(N);

  readln;

end.