program zad1;
uses crt;
label 1;
var
 p:array[1..10000] of integer;
 n,i,j:integer;
 b:boolean;
begin
 clrscr;
 writeln('VVEDITE n');
 readln(n);
 p[1]:=1;
 for i:=1 to n do begin
  for j:=1 to 10000 do if p[j]<>0 then p[j]:=p[j]*sqr(i);
  for j:=1 to 10000 do begin
   1:if p[j]>=10 then begin p[j]:=p[j]-10; p[j+1]:=p[j+1]+1; goto 1; end;
  end;
 end;
 b:=false;
 for j:=10000 downto 1 do begin
  if p[j]<>0 then b:=true;
  if b=true then write(p[j]);
 end;
readkey;
end.