PROGRAM zzz;
USES crt;
VAR x:BYTE;sl:INTEGER; a: ARRAY[1..100] OF LONGINT;    i: INTEGER;
FUNCTION GT(x:BYTE): LONGINT;
VAR i : BYTE; y :LONGINT;
BEGIN
y:= 1 ;     
FOR i:= x DOWNTO 1 DO 
y:= i * y ;
GT:= y;
END; 
PROCEDURE TSNT(x:LONGINT);
VAR i,k: LONGINT;
BEGIN        
k:= 1;    
FOR i:= 2 TO x DO
WHILE x MOD i = 0 DO
BEGIN
x:=x DIV i ; 
a[k]:=i;
k:= k+1 ;

END;
k:=sl;
END;
      
    
BEGIN
FOR i:= 1 TO sl DO
FOR k:= 2 TO x DO 
IF 

writeln(GT(6));readln;
END.