{ 8 u‘davinio s…lyga }
  function f (x : integer) : integer;
    var n : integer;
  begin
    n := x;
    while x > 2 do
      begin
         x := x - 2;
         n := n * x
      end;
    f := n
  end;