Program menghitung faktorial

program factorial;

uses crt;

label oka, budi, arsa;

function fact(a:integer): longint;
begin
  if (a=1) then
     fact:=1
  else
    fact:=a*fact(a-1);
end;

var
  x: integer;
  z: string;

begin
  oka:
  clrscr;
  write('input suatu nilai :');readln(x);
  write(x, ' faktorial ', ': ');
  write(' 1');

    for x:= 2 to x do
    begin
      write(' * ',x);
    end;
    write(' = ',fact(x));
    readln;
    writeln;

  budi:
  write('Apakah ingin menghitung lagi ? (Y/T)'); readln(z);
  if z= 'y' then goto oka;
  if z= 't' then goto arsa;

  arsa:
  textcolor(yellow);
  write('TERIMA KASIH'); readln;

end.