Nguyễn Đức Mạnh

program ct;
uses crt;
var n,k:longint;
   C:array [0..100000] of longint;
procedure doc;
begin
       assign(input,'SDIV.inp');
       assign(output,'SDIV.out');
       reset(input);
       rewrite(output);
               read(n);

end;
function snt(x:longint):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 uoc(x:longint);
var k,i,j,tg:longint;
begin

end;
procedure xl;
var i,j,k,tg:longint;
   s:int64;
begin
               s:=0;
               k:=0;
       for i:=1 to trunc(sqrt(n)) do
       if n mod i=0 then
       begin
               inc(k);
               c[k]:=i;
               if i<> n div i then
               begin
                       inc(k);
                       c[k]:=n div i;
               end;
       end;
               for i:=1 to k-1 do
               for j:=i+1 to k do
                       if C[i]>C[j] then
                       begin
                               tg:=C[i];
                               C[i]:=C[j];
                               C[j]:=tg;
                       end;
                       for i:=1 to k do
                       if snt(c[i]) then
                               s:=s+C[i];
                               writeln(s);
end;
begin
       doc;
       xl;
       close(input);
       close(output);
end.

program ct;
uses crt;
var a,n:longint;
procedure doc;
begin
assign(input,'LASTNUM.inp');
assign(output,'LASTNUM.out');
reset(input);
rewrite(output);
read(a,n);

end;
procedure xl;
var k,i:longint;
begin
k:=0;
for i:=1 to n do
k:=(A*n) mod 10;
writeln(k);
end;
begin
doc;
xl;
close(input);
close(output);
end.

program ct;
uses crt;
var n,k:longint;
c:array [0..100000] of longint;
procedure doc;
begin
assign(input,'TSNT.inp');
assign(output,'TSNT.out');
reset(input);
rewrite(output);
read(n);

end;
procedure xl;
var j,i:longint;
begin
j:=2;
k:=0;
while j*j<=n do
begin
if n mod j=0 then
begin
inc(k);
c[k]:=j;
n:=n div j;
end else
inc(j);
end;
if n>1 then
begin
inc(k);
c[k]:=n;
end;
for i:=1 to k do
write(C[i],#32);

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

program ct;
uses crt;
var n:longint;
   A,g:array [0..100000] of longint;
procedure doc;
var i:longint;
begin
       assign(input,'UPSEQ.inp');
       assign(output,'UPSEQ.out');
       reset(input);
       rewrite(output);
               read(n);
               for i:=1 to n do
               read(A[i]);
end;
procedure xl;
var i,rmax,c,d:longint;
begin
       rmax:=-trunc(1e9);
       for i:=1 to n do
       if A[i-1]<=A[i] then g[i]:=g[i-1]+1 else g[i]:=1;
               for i:=1 to n do
               if g[i]>rmax then
               begin
                       rmax:=g[i];
                       c:=i;
               end;
                       for i:=c downto 1 do
                       if G[i]=1 then
                       begin
                               d:=i;
                               break;
                       end;
                               write(rmax);
end;
begin
       doc;
       xl;
       close(input);
       close(output);
end.

program ct;
uses math;
var A,b,c:array [0..100000] of longint;
n,m:longint;
f:array [0..100,0..100] of longint;
procedure doc;
var i:longint;
begin
assign(input,'XAYCAU.inp');
assign(output,'XAYCAU.out');
reset(input);
rewrite(output);
read(m,n);
for i:=1 to m do
read(A[i]);
for i:=1 to n do
read(b[i]);
end;
procedure xl;
var i,j,k:longint;
begin
k:=0;
for i:=1 to m do
for j:=1 to n do
if (A[i]=b[j]) and (i<=j) then
begin
f[i,j]:=f[i-1,j-1]+1;
{inc(k);
c[k]:=i;
inc(k);
c[k]:=j; }
inc(k);
c[k]:=a[i];
end else f[i,j]:=max(f[i-1,j],f[i,j-1]);
writeln(f[m,n]);
{for i:=1 to n do
begin
if i mod 2=0 then
writeln(c[i-1],#32,c[i]);
end;}
for i:=1 to k do
write(C[i],#32);


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