program faktoriaal;
var
 i, n, f: integer;
 s: string;
 c: char;
begin
 writeln('Programm valjastab sisestatud arvu faktoriaali ',
         'viimase mittenulli.');
 write('Sisesta arv: '); readln(n);
 i:=1; f:=1; c:='x';
 for i:=1 to n do
  f:=f*i;
 str(f, s);
 i:=length(s);
 while (i>0) do
  if s[i]='0' then i:=i-1 else
  begin
   c:=s[i];
   i:=0;
  end;
 writeln('Sisestatud arvu faktoriaali viimane mittenull on ', c);   
end.