Trần Đồng Nguyệt Ánh

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


end.

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

var a:array[-7..100007] of longint;
    n,i,res,ras,j:longint;
begin
        assign(input,'D10B5.INP');
        assign(output,'D10B5.OUT');
        reset(Input);
        rewrite(output);
        readln(n);
        for i:=1 to n do read(a[i]);
        res:=low(longint);
        ras:=high(longint);
        for i:=1 to n do
                begin
                        if a[i]>res then res:=a[i];
                        if a[i]<ras then ras:=a[i];
                end;
        for i:=1 to n do
                begin
                        if a[i]=res then
                                        write(i,#32);
                        if a[i]=ras then
                                        write(i,#32);
                end;
        write(res,#32,ras);
        close(input);
        close(output);
end.

var a:array[-7..100007] of longint;
    res,n,i,res2,j,tg:longint;
begin
        assign(input,'D10B6.INP');
        assign(output,'D10B6.OUT');
        reset(input);
        rewrite(output);
        readln(n);
        for i:=1 to n do read(a[i]);
        res:=low(longint);
        for i:=1 to n do
                if a[i]>res then res:=a[i];
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        if a[i]>a[j] then
                                begin
                                        tg:=a[i];
                                        a[i]:=a[j];
                                        a[j]:=tg;
                                end;
        for i:=1 to n do
                if a[i]>a[1] then
                        begin
                                write(a[i]);
                                break;
                        end;
        close(input);
        close(output);
end.

var n,i:longint;
FUNCTION SNT(X:LONGINT):BOOLEAN;
var j:longint;
begin
        if x<2 then exit(false);
        for j:=2 to trunc(sqrt(x)) do
                if x mod j = 0 then exit(false);
        exit(true);
end;

BEGIN
        readln(n);
        if SNT(n) then write('1') else write('-1');
END.

var n,i,j,p,a:longint;
function snt(x:longint):boolean;
var l:longint;
begin
        if x<2 then exit(false);
        for l:=2 to trunc(sqrt(x)) do
                if x mod l = 0 then exit(false);
        exit(true);
end;
function scp(y:longint):boolean;
begin
        if trunc(sqrt(y)) = sqrt(y) then exit(true);
        exit(false);
end;
BEGIN
        assign(input,'BDNT.INP');
        assign(output,'BDNT.OUT');
        reset(input);
        rewrite(output);
        readln(n);
        p:=0;
        if snt(n) then
                if n mod 4 = 1 then
                begin
                        for i:=1 to n do
                                for j:=i+1 to n do
                                        if (scp(i)) and (scp(j)) and (i+j=n) then
                                                begin
                                                        write(i,#32,j);
                                                        p:=1;
                                                end;
                end;
        if p=0 then write('-1');
        close(input);
        close(output);
end.

uses crt;
var a:array[-3..1000,-3..1000] of longint;
    i,j,m,n:longint;
BEGIN
        clrscr;
        readln(m,n);
        for i:=1 to m do
                for j:=1 to n do
                        readln(a[i,j]);
        for i:=1 to m do
                begin
                        for j:=1 to n do write(a[i,j],#32);
                        writeln;
                end;
END.

uses crt;
var a:array[-3..1000,-3..1000] of longint;
    m,n,i,j,s:longint;
BEGIN
        clrscr;
        readln(m,n);
        for i:=1 to m do
                for j:=1 to n do
                        read(a[i,j]);
        for i:=1 to m do
                begin
                        for j:=1 to n do write(a[i,j],#32);
                        writeln;
                end;
        s:=0;
        for i:=1 to m do
                for j:=1 to n do
                        s:=s+a[i,j];
                                write(s);
END.

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

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

var a:array[-3..1000,-3..1000] of longint;
    m,n,i,j,dem:longint;
begin
        readln(m,n);
        for i:=1 to m do
                for j:=1 to n do
                        read(a[i,j]);
        dem:=0;
        for i:=1 to m do
                for j:=1 to n do
                        if a[i,j] mod 3 = 0 then inc(dem);
        write(dem);
end.

var a:array[-3..1000,-3..1000] of longint;
    m,n,res,i,j:longint;
begin
        readln(m,n);
        for i:=1 to m do
                for j:=1 to n do
                        read(a[i,j]);
        for i:=1 to m do
                for j:=1 to n do
                        begin
                                res:=a[1,1];
                                if a[i,j] > res then res:= a[i,j];
                        end;
        for i:=1 to m do
                for j:=1 to n do
                        begin
                                if a[i,j] = res then write(i,#32,j);
                                writeln;
                        end;
end.

var a:array[-3..1000,-3..1000] of longint;
    m,n,i,j:longint;
function scp(x:longint):boolean;
begin
        if trunc(sqrt(x))=sqrt(x) then exit(true);
        exit(false);
end;
BEGIN
        readln(m,n);
        for i:=1 to m do
                for j:=1 to n do
                        read(a[i,j]);
        for i:=1 to m do
                for j:=1 to n do
                        if scp(a[i,j]) then write(a[i,j],#32);
END.

var a:array[-3..1000,-3..1000] of longint;
    m,n,i,j,dem:longint;
function snt(x:longint):boolean;
var l:longint;
begin
        if x<2 then exit(false);
        for l:=2 to trunc(sqrt(x)) do
                if x mod l = 0 then exit(false);
        exit(true);
end;
BEGIN
        readln(m,n);
        for i:=1 to m do
                for j:=1 to n do
                        read(a[i,j]);
        for i:=1 to m do
                for j:=1 to n do
                        if snt(a[i,j]) then inc(dem);
                                        write(dem);
END.

var a:array[-3..1000,-3..1000] of longint;
    m,n,i,j,res:longint;
function scp(x:longint):boolean;
begin
        if trunc(sqrt(x)) = sqrt(x) then exit(true);
        exit(false);
end;
BEGIN
        readln(m,n);
        for i:=1 to m do
                for j:=1 to n do
                        read(a[i,j]);
        res:=a[1,1];
        for i:=1 to m do
                for j:=1 to n do
                        if (scp(a[i,j]) and (a[i,j]>res)) then res:=a[i,j];
        write(res);
END.

var a:array[-3..1000,-3..1000] of longint;
    m,n,i,j,res,ras:longint;
begin
        readln(m,n);
        for i:=1 to m do
                for j:=1 to n do
                        read(a[i,j]);
        res:=a[1,1];
        ras:=a[1,1];
        for i:=1 to m do
                for j:=1 to n do
                        begin
                                if a[i,j] > res then res:=a[i,j];
                                if a[i,j] < ras then ras:=a[i,j];
                        end;
        write(res,#32,ras);
end.

var n,a,b:longint;
begin
        assign(input,'CAPSO.INP');
        assign(output,'CAPSO.OUT');
        reset(input);
        rewrite(output);
        readln(n);
        for a:=1 to n div 2 do
                for b:=n div 2 to n do
                        begin
                                if a+b=n then write (a,#32,b);
                                writeln;
                        end;
end.

var m,n,i,j:longint;
function snt(x:longint):boolean;
var j:longint;
begin
        if x<2 then exit(false);
        for j:=2 to trunc(sqrt(x)) do
                if x mod j = 0 then exit(false);
        exit(true);
end;
BEGIN
        assign(input,'NGUYENTO.INP');
        assign(output,'NGUYENTO.OUT');
        reset(input);
        rewrite(output);
        readln(m,n);
        for i:=m+1 to n-1 do
                        begin
                                if (snt(i)) then write(i,#32);
                        end;
END.

var n,i,c:longint;
function snt(x:longint):boolean;
var j:longint;
begin
        if x<2 then exit(false);
        for j:=2 to trunc(sqrt(x)) do
                if x mod j = 0 then exit(false);
        exit(true);
end;
BEGIN
        assign(input,'SONGUYENTO.INP');
        assign(output,'SONGUYENTO.OUT');
        reset(input);
        rewrite(output);
        readln(n);
        c:=n+1;
        while snt(c)=false do inc(c);
        write(c);
ENd.

var x1,x2,y1,y2:LONGINT;
function khoangcach(u1,u2,v1,v2:longint):real;
var tam:real;
begin
        tam:=sqrt(sqr(x1-x2) + sqr(y1-y2));
        exit(tam);
end;
BEGIN
        assign(input,'HTD1BI.INP');
        assign(output,'HTD1B1.OUT');
        reset(input);
        rewrite(output);
        readln(x1);
        readln(x2);
        readln(y1);
        readln(y2);
        write(khoangcach(x1,x2,y1,y2):0:2);
        close(input);
        close(output);
END.

var x1,x2,y1,y2,t1,t2:LONGINT;
function khoangcach(u1,u2,u3,v1,v2,v3:longint):real;
var a:real;
begin
        a:=sqrt(sqr(u1-u2) + sqr(v1-v2) +  sqr(u2-u3) + sqr(v2-v3) + sqr(u1-u3) + sqr(v2-v3);
        exit(a);

end;
BEGIN
        assign(input,'HTD1B2.INP');
        assign(output,'HTD1B2.OUT');
        reset(input);
        rewrite(output);
        readln(x1);
        readln(x2);
        readln(y1);
        readln(y2);
        readln(t1);
        readln(t2);
        write(khoangcach(x1,x2,y1,y2,t1,t2):0:2);
        close(input);
        close(output);
END.

var a:longint;
function ktra(u:longint):boolean;
begin
        if (u mod 3 = 0) and (u mod 5 <> 0) then exit(TRUE)
        else exit(false);
end;
BEGIN
        assign(input,'HTD1B3.INP');
        reset(input);
        assign(output,'HTD1B3.OUT');
        rewrite(output);
        read(a);
        if ktra(a)=true then write(a);
        close(input);
        close(output);
END.

var a,b,c:longint;
function gtnn(u,v,t:longint):longint;
var res:longint;
begin
        res:=u;
        if res > v then res:=v;
        if res > t then res:=t;
        exit(res);
end;
BEGIN
        assign(input,'HTD1B4.INP');
        assign(output,'HTD1B4.OUT');
        reset(input);
        rewrite(output);
        readln(a,b,c);
        write(gtnn(a,b,c));
        close(input);
        close(output);
END.

var a,b,c:longint;
function ktra3canhtgiac(u,v,x:longint):boolean;
begin
        if (u+v>x) and (u+x>v) and ( v+x>u) then exit(true) else exit(false);
end;

function dientich(u,v,x:longint):real;
var p,s:real;
begin
        p:=(u+v+x) div 2;
        s:=sqrt(p*(p-u)+(p-v)*(p-x));
        exit(s);
end;
BEGIN
        assign(input,'HTD1B5.INP');
        assign(output,'HTD1B5.OUT');
        reset(input);
        rewrite(output);
        readln(a,b,c);
        if ktra3canhtgiac(a,b,c) then write(dientich(a,b,c):0:3)
                else write('NONE');
        close(input);
        close(output);
END.

var n,i:longint;
    s:real;
begin
        assign(input,'HTD1B6.INP');
        assign(output,'HTD1B6.OUT');
        reset(input);
        rewrite(output);
        readln(n);
        s:=0;
        for i:=1 to 2*n-1 do
                if i mod 2 <> 0 then
                        s:=s+1/i;
        write(s:0:3);
        close(input);
        close(output);
end.