Bàn Nguyễn Anh Hùng

uses math;
var i,N: longint;
const
fi = 'SDIV.inp';
fo = 'SDIV.out';
procedure doc;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
end;
function tonguoc (u: longint) : int64;
var
temp: int64=0;
begin
for i:=1 to trunc(sqrt(u)) do
if u mod i = 0 then
begin
temp := temp + i;
if i <> u div i then
temp := temp + u div i ;
end;
exit(temp);
end;
begin
doc;
writeln(tonguoc(N));
close(input);
close(output);
end.

uses math;
var
a, n, i : longint;
p : int64;
const
fi = 'LASTNUM.inp';
fo = 'LASTNUM.out';
procedure doc;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
read(a,n);
end;
begin
doc;
p := 1;
for i := 1 to n do
p := (p*a) mod 10;
writeln(p);
close(input);
close(output);
end.

uses math;
var
c : array [-1..100007] of longint;
i,N,k : longint;
const
fi = 'TSNT.inp';
fo = 'TSNT.out';
procedure doc;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
end;
procedure Thua_so_Ngto (u : longint);
var j : longint;
begin
j := 2;
while j <= trunc(Sqrt(u)) do
if u mod j = 0 then
begin
inc(k);
c[k] := j;
u := u div j;
end else inc(J);
if u > 1 then
begin
inc(k);
c[k] := u;
end;
end;
begin
doc;
k:=0;
Thua_so_ngto(N);
for i:=1 to k do
write(c[i],#32);
close(input);
close(output);
end.

program ct;
uses crt;
var n:int64;
function snt(x:int64):boolean;
var j:longint;
begin
if x<2 then exit(false);
if x<4 then exit(true);
if x>3 then
for j:=2 to trunc(sqrt(x)) do
if x mod j=0 then
exit(false);
exit(true);
end;
procedure doc;
begin
assign(input,'NUMBERC.inp');
assign(output,'NUMBERC.out');
reset(input);
rewrite(output);
read(n);

end;
procedure xl;
var p:longint;
begin
p:=0;
n:=n div 10;
while n>0 do
begin
n:=n div 10;
if snt(n) then break;
p:=1;
end;
if p=0 then write('-1') else write(n);
end;
begin
doc;
xl;
close(input);
close(output);
end.

uses math;
var
       f : array [-1..300,-1..300] of longint;
       Kt : array [-7..100007] of longint;
       i,N,p,rmax,m,j : longint;
const
       fi = 'ARR2DPRI.inp';
       fo = 'ARR2DPRT.out';
procedure doc;
begin
       assign(input,fi); reset(input);
       assign(output,fo); rewrite(output);
       readln(m,n);
       rmax := low(longint);
       for i := 1 to m do
               for j := 1 to n do
               begin
                       read(f[i,j]);
                       rmax := max (rmax,f[i,j]);
               end;
end;
procedure sang_nt (u : longint);
var i,j : longint;
begin
       for i := 1 to u do kt[i] := 1;
       kt[1] := 0;
       j := 2;
       while j <= trunc(sqrt(u)) do
               begin
                       i := 2;
                       while kt[i] = 0 do inc(i,2);
                       while (i*j <= u) do
                       begin
                               kt[i*j] := 0;
                               inc(i);
                       end;
                       inc(j);
               end;
end;
begin
       doc;
       sang_nt(rmax);
       p:=0;
       for i := 1 to m do
               for j := 1 to n do
                       if kt[f[i,j]]=1 then
                               begin
                                       writeln(i,#32,J);
                                       p := 1;
                               end;
       if p=0 then write(-1);
       close(input);
       close(output);
end.

uses math;
var
Kt : array [-7..100007] of longint;
N,i : longint;
const
fi = 'ERATOS.inp';
fo = 'ERATOS.out';
procedure doc;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
end;
procedure sang_nt (u : longint);
var i,j : longint;
begin
for i := 1 to u do kt[i] := 1;
kt[1] := 0;
j := 2;
while j <= trunc(sqrt(u)) do
begin
i := 2;
while kt[i] = 0 do inc(i,2);
while (i*j <= u) do
begin
kt[i*j] := 0;
inc(i);
end;
inc(j);
end;
end;
begin
doc;
sang_nt(n);
for i:=1 to n do
if kt[i]=1 then write(i,#32);
close(input);
close(output);
end.

uses math;
var
p : int64;
res : longint;
f : array [0..100000] of int64;
procedure doc;
begin
assign(input,'FPRIME.inp');
assign(output,'FPRIME.out');
reset(input);
rewrite(output);
read(p);

end;
function snt (x : int64) : boolean;
var j : longint;
begin
if x < 2 then exit(false);
if x < 4 then exit(true);
if x > 3 then
for j := 2 to trunc(sqrt(x)) do
if x mod j = 0 then exit(false);
exit(true);
end;
procedure xl;
var i : longint;
begin
res := 0;
F[1] := 1;
F[2] := 1;
i := 2;
while f[i] < P do
begin
inc(i);
f[i] := F[i-1] + F[i-2];
end;
for i := 1 to p do
if (F[i] < p) and (snt(f[i])) then inc(res);
write(res);
end;
begin
doc;
xl;
close(input);
close(output);
end.

uses math;
var
a : array [-1..100007] of longint;
i,N,rmin,res,p : longint;
const
fi = 'PSECOND.inp';
fo = 'PSECOND.out';
procedure doc;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
rmin := high(longint);
for i:=1 to n do
begin
read(a[i]);
rmin := min(rmin,a[i]);
end;
end;
begin
doc;
p := 0;
res := high(longint);
for i:=1 to n do
if (a[i] <> rmin) and (res > a[i]) then begin res := a[i]; p := 1; end;
if p = 0 then write(-1) else
for i:=1 to n do
if res = a[i] then
write(res,#32,i);
close(input);
close(output);
end.

uses math;
var
a,g : array [-1..100007] of longint;
i,N,rmax : longint;
const
fi = 'UPSEQ.inp';
fo = 'UPSEQ.out';
procedure doc;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
for i := 1 to n do
read(a[i]);
end;
begin
doc;
for i := 1 to n do
if A[i] >= a[i-1] then g[i] := g[i-1] + 1 else g[i] := 1;
rmax := g[1];
for i := 2 to n do
rmax := max(rmax,g[i]);
write(rmax);
close(input);
close(output);
end.

uses math;
var
A,s : array [-1..300,-1..300] of longint;
k,i,n,m,j,p,x : longint;
t : int64;
const
fi = 'ARR1HVS1.inp';
fo = 'ARR1HVS1.out';
procedure doc;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(m,n,k);
for i := 1 to m do
for j := 1 to n do
begin
read(a[i,j]);
s[i,j] := s[i-1,j] + s[i,j-1] - s[i-1,j-1] + a[i,j];
end;
end;
begin
doc;
p := 0;
for x := 1 to min(m,n) do
for i := 1 to m-x+1 do
for j := 1 to n-x+1 do
begin
t := s[i+x-1,j+x-1] - s[i-1,j+x-1] - s[i+x-1,j-1] + s[i-1,j-1];
if t = k then
begin
writeln(i,#32,j,#32,x);
p := 1;
end;
end;
if p = 0 then write(-1);
close(input);
close(output);
end.

uses math;
var
A,s : array [-1..300,-1..300] of longint;
k,i,n,m,j,p,x : longint;
t : int64;
const
fi = 'ARR1HVS1.inp';
fo = 'ARR1HVS1.out';
procedure doc;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(m,n,k);
for i := 1 to m do
for j := 1 to n do
begin
read(a[i,j]);
s[i,j] := s[i-1,j] + s[i,j-1] - s[i-1,j-1] + a[i,j];
end;
end;
begin
doc;
p := 0;
for x := min(m,n) downto 1 do
for i := 1 to m-x+1 do
for j := 1 to n-x+1 do
begin
t := s[i+x-1,j+x-1] - s[i-1,j+x-1] - s[i+x-1,j-1] + s[i-1,j-1];
if t = k then
begin
writeln(x);
p := 1;
end;
break;
end;
if p = 0 then write(-1);
close(input);
close(output);
end.

uses math;
var
A,s : array [-1..300,-1..300] of longint;
ii,jj,res,i,n,m,j,p,x : longint;
t,dt : int64;
const
fi = 'ARR2REC1.inp';
fo = 'ARR2REC1.out';
procedure doc;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(m,n);
for i := 1 to m do
for j := 1 to n do
begin
read(a[i,j]);
s[i,j] := s[i-1,j] + s[i,j-1] - s[i-1,j-1] + a[i,j];
end;
end;
begin
doc;
p := 0; res := -trunc(1e9);
for i := 1 to m do
for j := 1 to n do
for ii := i to m do
for jj := j to n do
begin
t := s[ii,jj] - s[i-1,jj] - s[ii,j-1] + s[i-1,j-1];
dt := (ii-i+1)*(jj-j+1);
if t = dt then
begin
res := max(res,dt);
p := 1;
end;
end;
if p = 0 then write(-1);
write(res);
close(input);
close(output);
end.

uses math;
var
A : array [-1..300,-1..300] of longint;
h,c : array [-1..100006] of longint;
t,tt,i,n,m,j,res : longint;
const
fi = 'ARR2REC2.inp';
fo = 'ARR2REC2.out';
procedure doc;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(m,n);
for i := 1 to m do
for j := 1 to n do
read(a[i,j]);
end;
begin
doc;
for i := 1 to m do
begin
t := 0;
for j := 1 to n do t := t + A[i,j];
h[i] := t;
end;
for j := 1 to n do
begin
tt := 0;
for i := 1 to m do tt := tt + a[i,j];
c[j] := tt;
end;
res := low(longint);
for i := 1 to m do
for j := 1 to n do
res := max(res,h[i]+c[j]-a[i,j]);
write(res);
close(input);
close(output);
end.

uses math;
var i,n:longint;
       s,res:string;
       f:boolean;
procedure doc;
begin
       assign(input,'str1num.inp');
       assign(output,'str1num.out');
       reset(input);
       rewrite(output);
       readln(s);
end;
procedure xl;
begin
       i:= 1;
       while i <= length(s) do
               begin
                       f:=false;
                       inc(i);
                       while (s[i] in ['0'..'9']) and (i <= length(s)) do
                               begin
                                       f := true;
                                       write(s[i]);
                                       inc(i);
                               end;
                       if f then write(#32);
               end;
end;
begin
       doc;
       xl;
       close(input);
       close(output);
end.

uses math;
var i,n,d:longint;
s,snen,ds:string;
procedure doc;
begin
assign(input,'str2numm.inp');
assign(output,'str2numm.out');
reset(input);
rewrite(output);
readln(s);
end;
procedure xl;
begin
while i < length(s) do
begin
inc(i);
snen := snen + s[i]; d := 1;
while (i < length(s)) and (s[i] = s[i+1]) do
begin
inc(d);
inc(i);
end;
str(d,ds);
snen := snen + ds;
end;
write(snen);

end;
begin
doc;
xl;
close(input);
close(output);
end.

uses math;
var i,n,t:longint;
s,res,ts:string;
f:boolean;
procedure doc;
begin
assign(input,'str2num.inp');
assign(output,'str2num.out');
reset(input);
rewrite(output);
readln(s);
end;
procedure xl;
begin
res := '';
while i <= length(s) do
begin
ts := '';
inc(i);
while (s[i] in ['0'..'9']) and (i <= length(s)) do
begin
ts := ts + s[i];
inc(i);
end;

if length(ts) > length(res) then res := ts
else if length(ts) = length(res) then if ts >= res then res := ts;
end;
write(res);
end;
begin
doc;
xl;
close(input);
close(output);
end.
close(input); close(output);

uses math;
var i,j,t3:longint;
       s,snen,t,t2:string;
procedure doc;
begin
       assign(input,'str3num.inp');
       assign(output,'str3num.out');
       reset(input);
       rewrite(output);
       readln(s);
end;
procedure xl;
begin
       i := 1;
       while i <= length(s) do
               begin
                       t := ''; t2 := s[i];
                       inc(i);
                       while (s[i] in ['0'..'9']) and (i <= length(s)) do
                               begin
                                       t := t + s[i];
                                       inc(i);
                               end;
                       val(t,t3);
                       for j := 1 to t3 do snen := snen + t2;
               end;
       write(snen);

end;
begin
       doc;
       xl;
       close(input);
       close(output);
end.