program pask_skaitm;

  function paskutinieji (sk: longint): longint;
    var i, pask: longint;
  begin
    pask := 1;
    for i := 1 to sk do
      begin
        pask := pask*i;
        while pask mod 10 = 0 do
          pask := pask div 10;
        pask := pask mod 1000;
      end;
    paskutinieji := pask;
  end;

  var triz, sk: longint;
begin
  writeln ('Kokio sk. fakt. pabaigos reikia?');
  readln (sk); { nuo kurio skaièiaus pradësime }
  triz := paskutinieji (sk);
  writeln (triz);
  readln;
end.
