FAK

program fakulteat (input, output);

var

Fak : integer;


function FakultaetRek (inZahl : integer) : Integer;
{Berechnet die Fakultaet von inZahl }

begin
  writeln ('Funktionseingang ', inZahl);
    writeln ('Funktionsausgang: ', FakultaetRek);

  if inZahl = 0 then
    FakultaetRek := 1
  else
    FakultaetRek := inZahl * FakultaetRek (inZahl-1);

  writeln ('Funktionsausgang: ', FakultaetRek);

end;

begin
  writeln ('Geben Sie eine Zahl ein, von dieser wird die Fakultaet berechnet: ');
  read (fak);
  writeln ('Die Fakultaet der Zahl: ', Fak, ' ist: ', FakultaetRek(Fak));
end.