Program Faktorial Pada Pascal

Oke, kali ini gua posting Program Faktorial pada Pascal, tetep belajar sob, jangan copy-paste mulu. hahaa :p

Program Faktorial_pascal;                          

uses wincrt;

function Faktorial(a:integer):longint;

begin

  if (A=1)then

    Faktorial:=1

  else

    Faktorial:=a*faktorial(a-1);

end;

                                             

var jml,x,i,a,N:integer;

begin

writeln('N:');

readln(N);

for i:= 1 to N do

jml:=jml+i;

  write('Berapa Faktorial : ');readln(x);

  writeln(x,' faktorial ','= ',faktorial(x));

  writeln('Jumlah deret: ',jml);

end.