Trần Đồng Nguyệt Ánh

var n,i,s:longint;
begin
        readln(n);
        s:=1;
        for i:=1 to n do s:=s*i;
        writeln(s);
end.

var n,i:longint;
begin
        readln(n);
        for i:=1 to n do
          begin
            if (i mod 3 = 0) and (i mod 5 <> 0) then write(i,#32);
          end;
end.

var n,i,s,a:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
          if sqrt(i)=trunc(sqrt(i)) then s:=s+1;
        write(s);
end.

var n,i:longint;
begin
        readln(n);
        for i:=1 to n do
           if n mod i = 0 then write(i,#32);
end.

var a,b,i:longint;
begin
        readln(a,b);
        if a<=b then
          for i:=a to b do
            if sqrt(i)=trunc(sqrt(i)) then write(i,#32);
end.

var n,i:longint;
begin
        readln(n);
        for i:=1 to n do
          if (n mod i = 0) and (sqrt(i)=trunc(sqrt(i))) then write(i,#32);
end.

begin
        readln(n);
        s:=1;
        for i:=1 to n do s:=s*i;
        writeln(s);
end.

var n,i:longint;
begin
        readln(n);
        for i:=1 to n do
          begin
            if (i mod 3 = 0) and (i mod 5 <> 0) then write(i,#32);
          end;
end.

var n,i,s,a:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
          if sqrt(i)=trunc(sqrt(i)) then s:=s+1;
        write(s);
end.

var n,s,i:longint;
    a:array[-3..100007] of longint;
    tbc:real;
begin
        readln(n);
        s:=0;
        for i:=1 to n do read(a[i]);
        for i:=1 to n do write(a[i],#32);
        writeln();
        for i:=1 to n do s:= s+a[i];
        tbc:=s / n;
        write(s,#32,tbc:0:3);
end.

var n,i:longint;
    a:array[-3..100007] of longint;
begin
        readln(n);
        for i:=1 to n do read(a[i]);
        for i:=1 to n do
                begin
                if a[i] mod 2 = 0 then write(a[i],#32);
                end;
end.

var n,i,s:longint;
    a:array[1..1000007] of longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do read(a[i]);
        for i:=1 to n do write(a[i],#32);
        for i:=1 to n do
          if a[i] mod 2 <> 0 then s:=s+1;
        write(s);
end.

var n,i:longint;
    a:array[-5..100007] of longint;
begin
        readln(n);
        for i:=1 to n do read(a[i]);
        for i:=1 to n do write(a[i],#32);
        for i:=1 to n do
                if sqrt(i)=trunc(sqrt(i)) then
                        write(a[i]);
end.

var n,i:longint;
    a:array[-5..100007] of longint;
begin
        readln(n);
        for i:=1 to n do read(a[i]);
        for i:=1 to n do write(a[i],#32);
        for i:=1 to n do
                if sqrt(i)=trunc(sqrt(i)) then
                        write(a[i]);
end.

var n,i,s,dem:longint;
    a:array[-5..100007] of longint;
    tbc:real;
begin
        readln(n);
        s:=0;
        for i:=1 to n do read(a[i]);
        for i:=1 to n do s:=s+a[i];
        tbc:=s/n;
        for i:=1 to n do
                if a[i] > tbc then dem:=dem+1;
        write(dem);
end.

var n,i,res,j:longint;
    a:array[-5..1000007] of longint;
begin
        readln(n);
        for i:=1 to n do read(a[i]);
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        if a[i] > a[j] then
                                begin
                                        res:=a[i];
                                        a[i]:=a[j];
                                        a[j]:=res;
                                end;
        write(a[n]);
end.

var n,i,res,j,x:longint;
    a:array[-7..100007] of longint;
begin
        readln(n);
        for i:=1 to n do read(a[i]);
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        if a[i] > a[j] then
                                begin
                                        res:=a[i];
                                        a[i]:=a[j];
                                        a[j]:=res;
                                end;
        for i:=1 to n do if a[i] = a[1] then x:=x+1;
        write(x);

end.

var n,i,res,j:longint;
    a:array[-7..100007] of longint;
begin
        readln(n);
        for i:=1 to n do read(a[i]);
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        if (a[i] mod 2 = 0) and (a[j] mod 2 = 0) and (a[i]>a[j]) then
                                begin
                                        res:=a[i];
                                        a[i]:=a[j];
                                        a[j]:=res;
                                end;
        write(a[i]);
end.

var n,i,s,x:longint;
    a:array[-5..1000007] of longint;
begin
        readln(n);
        x:=0;
        for i:=1 to n do read(a[i]);
        for i:=1 to n do
                begin
                        if a[i] mod 2 = 0 then x := x + a[i]
                        else
                                inc(s);
                end;
        write(s,#32,x);
end.

var n,i,k:longint;
    a:array[-5..1000007] of longint;
begin
        readln(n,k);
        for i:=1 to n do read(a[i]);
        for i:=1 to n do
                if a[i] = k then write(i,#32);
end.

var n,x,dem,i:longint;
    a:array[-5..100000007] of longint;
begin
        readln(n,x);
        for i:=1 to n do read(a[i]);
        for i:=1 to n do
                if a[i] >= x then inc(dem);
        write(dem);
end.

var n,k,i,p:longint;
   a:array[-5..1000007] of longint;
begin
       readln(n,k);
       for i:=1 to n do read(a[i]);
       for i:=1 to n do
               if a[i] = k then
                       begin
                               write(i);
                               p:=1;
                               break;
                       end;
       if p=0 then write('-1');
end.

var n,i,res,j,dem:longint;
    a:array[-4..100000007] of longint;
begin
        readln(n);
        for i:=1 to n do read(a[i]);
        for i:=1 to n-1 do
            for j:=i+1 to n do
                begin
                        res:= a[i];
                        if a[j] > res then res:= a[j];
                end;
        for i:=1 to n do
                if a[i] = res then inc(dem);
        write(dem);
end.

var n,i,j,res:longint;
    a:array[-5..100007] of longint;
begin
        readln(n);
        for i:=1 to n do read(a[i]);
        res:=low(longint);
        for i:=1 to n-1 do
          for j:=i+1 to n do
                if a[i] + a[j] > res then res := a[i] + a[j];
        write(res);
end.

var n,i,res,k:longint;
    a:array[-5..100007] of longint;
begin
        readln(n);
        for i:=1 to n do read(a[i]);
        res:=high(longint);
        for i:=1 to n do
                if res>a[i] then
                        res:=a[i];
        for i:=1 to n do
                if a[i]<>res then
                        write(a[i],#32);
end.