Triệu Kim Ngân

program sdiv;
var
n,i:int64;
f1,f2: text;
const fi='sdiv.inp';
fo='sdiv.out';
function snt(n:int64):int64;
var i,t:longint;
begin
t:=0;
for i:=1 to trunc(sqrt(n)) do
begin
if n mod i=0 then
begin
t:=t+i;
if i<> (n div i) then t:= t+(n div i);
end;
end;
writeln(f2,t);
end;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
snt(n);
close(input);
close(output);
end.

program lastnum;
var a,n,t,d:int64;
       fi,fo:text;
const f1='lastnum.input';
       f2='lastnum.output';
       l=trunc(1e9)+7;
function bmx(b,x:longint):int64;
begin
       if x=0 then exit(1);
       if x=1 then exit(b);
       t:=bmx(b,x div 2);
       exit(((sqr(t)mod l)* bmx(b,x mod 2)mod l) mod l);
end;
procedure xuly;
begin
       d:=bmx(a,n) mod 10;
       write(fo,d);
end;
begin
       assign(fi,f1); reset(fi);
       assign(fo,f2); rewrite(fo);
       read(fi,a,n);
       xuly;
       close(fi);
       close(fo);
end.

program tsnt;
var n,i,k: longint;
c:array[1..10000] of longint;
const fi='tsnt.inp';
fo='tsnt.out';
function ptich(u:longint): longint;
var j:longint;
begin
j:=2;
k:=0;
while j<=trunc(sqrt(u)) do
begin
while u mod j =0 do
begin

inc(k);
c[k]:=j;
u:=u div j;
end;
inc(j);
end;
if u>1 then c[k+1]:=u;
for j:=1 to k+1 do
write(c[j],#32);
end;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
ptich(n);
close(input);
close(output);
end.

program eratos;
var n:longint;
i:longint;
fi,fo:text;
const f1='eratos.input';
f2='eratos.output';
function snt(u:longint):boolean;
var j:longint;
begin
if (u=1) then exit(false);
if (u=2) or (u=3) then exit(true);
for j:=2 to trunc(sqrt(u)) do
if (u mod j=0) then exit(false);
exit(true);
end;
begin
assign(fi,f1); reset(fi);
assign(fo,f2); rewrite(fo);
readln(fi,n);
for i:=1 to n do
begin
if (snt(i)) then write(fo,i,#32);
end;
close(fi);
close(fo);
end.

program numberc;
var n:int64;
i,t:longint;
fi,fo:text;
const f1='numberc.input';
f2='numberc.output';
function snt(u:int64):boolean;
var i:longint;
begin
if u=1 then exit(false);
if (u=2) or (u=3) then exit(true);
for i:=2 to trunc(sqrt(u)) do
begin
if (u mod i=0) then exit(false);
end;
exit(true);
end;
begin
assign(fi,f1); reset(fi);
assign(fo,f2); rewrite(fo);
readln(fi,n);
t:=0;
while (n div 10)>0 do
begin
n:=n div 10;
if snt(n) then begin
write(fo,n);
t:=1;
break;
end;

end;
if t=0 then write(fo,'-1');
close(fi);
close(fo);
end.

program arr2dpri;
var a:array[-5..10000,-5..10000] of longint;
n,m,i,j,t:longint;
fi,fo:text;
const f1='arr2dpri.input';
f2='arr2dpri.output';
function snt(u:longint):boolean;
var j:longint;
begin
if (u=1) then exit(false);
if (u=2) or (u=3) then exit(true);
for j:=2 to trunc(sqrt(u)) do
if (u mod j=0) then exit(false);
exit(true);
end;
begin
assign(fi,f1); reset(fi);
assign(fo,f2); rewrite(fo);
readln(fi,m,n);
t:=0;
for i:=1 to m do
for j:=1 to n do
begin
read(fi,a[i,j]);
if snt(a[i,j]) then
begin
writeln(fo,i,#32,j);
t:=1;
end;
end;
if t=0 then write(fo,'-1');
close(fi);
close(fo);
end.

program fibo;
var f:array[1..10000] of longint;
p,i,j,d:longint;
fi,fo:text;
const f1='fprime.input';
f2='fprime.output';

function snt(u:longint):boolean;
var j:longint;
begin
if (u=1) then exit(false);
if (u=2) or (u=3) then exit(true);
for j:=2 to trunc(sqrt(u)) do
if (u mod j=0) then exit(false);
exit(true);
end;
begin
assign(fi,f1); reset(fi);
assign(fo,f2); rewrite(fo);
readln(fi,p);
f[1]:=1; f[2]:=1;
i:=2;
while f[i]<p do
begin
inc(i);
f[i]:=f[i-1]+f[i-2];
if snt(f[i]) and (f[i]<=p) then inc(d);
end;
write(fo,d);
close(fi);
close(fo);
end.

program psecond;
uses math;
var n,i,res,r2: longint;
a:array[-5..100007] of longint;
fi,fo:text;
const f1='psecond.input';
f2='psecond.output';
begin
assign(fi,f1); reset(fi);
assign(fo,f2); rewrite(fo);
res:=high(longint);
r2:=high(longint);
readln(fi,n);
for i:=1 to n do
begin
read(fi,a[i]);
res:=min(res,a[i]);
end;
for i:=1 to n do
begin
if a[i]>res then
r2:=min(r2,a[i]);
end;
if r2=high(longint) then write(fo,'-1')
else begin
write(fo,r2,#32);
for i:=1 to n do
if a[i]=r2 then
write(fo,i,#32);
end;
close(fi);
close(fo);
end.

program upseq;
uses math;
var n,i,res:longint;
a:array[-5..1000007] of longint;
g:array[-5..1000007] of longint;
fi,fo:text;
const f1='upseq.inp';
f2='upseq.out';
begin
assign(fi,f1); reset(fi);
assign(fo,f2); rewrite(fo);
readln(fi,n);
a[0]:=0;
g[0]:=0;
res:=0;
for i:=1 to n do
begin
read(fi,a[i]);
if a[i-1]<=a[i] then g[i]:=g[i-1]+1
else g[i]:=1;
res:=max(res,g[i]);
end;
write(fo,res);
close(fi);

program str;
uses math;
var s,st:string;
i,code,d,res,k:longint;
c:array[1..10000] of longint;
fi,fo:text;
const f1='str2num.inp';
f2='str2num.out';
begin
assign(fi,f1); reset(fi);
assign(fo,f2); rewrite(fo);
read(fi,s);
for i:=1 to length(s) do
begin
if (s[i] in ['0'..'9']) then st:=st+s[i]
else
begin
inc(k);
val(st,d,code);
c[k]:=d;
st:='';
end;
end;
for i:=1 to k do
res:=max(res,c[i]);
write(fo,res);
close(fi);
close(fo);
end.