1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:=1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:=1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
var
a:array[0..5] of integer;
f:array[0..5,0..10000] of int64;
i,j,n:longint;
begin
read(n);
a[1]:=1;
f[0,0]:=1;
A[2]:=5;
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:=1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:=1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:=1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
var
a:array[0..5] of integer;
f:array[0..5,0..10000] of int64;
i,j,n:longint;
begin
read(n);
a[1]:=1;
f[0,0]:=1;
A[2]:=5;
 ...

1
2
3
4
5
6
7
8
9
var
a:array[0..5] of integer;
f:array[0..5,0..10000] of int64;
i,j,n:longint;
begin
read(n);
a[1]:=1;
f[0,0]:=1;
A[2]:=5;
 ...

1
2
3
4
5
6
7
8
9
program qq;
{$APPTYPE CONSOLE}
{$O-}
uses
  SysUtils;
var
  a:array [1..25] of integer;
  i,n,m,s1,s2,ans: integer;
begin
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t,j : integer;
    a : array [1..100000] of integer;
 
begin
p := 0;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
var
a:array[0..15] of integer;
f:array[0..11,0..10000] of int64;
i,j,n:longint;
begin
read(n);
a[1]:=1;
f[0,0]:=1;
for i:=2 to 11 do
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t,j : integer;
    a : array [1..100000] of integer;
 
begin
p := 1;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,k,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:= 1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t : integer;
    a : array [1..100000] of integer;
 
begin
p := 1;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,k,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:= 1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
var
a:array[0..15] of integer;
f:array[0..11,0..10000] of int64;
i,j,n:longint;
begin
read(n);
a[1]:=1;
f[0,0]:=1;
for i:=2 to 11 do
 ...

1
2
3
4
5
6
7
8
9
var
a:array[0..15] of integer;
f:array[0..11,0..10000] of int64;
i,j,n:longint;
begin
read(n);
a[1]:=1;
f[0,0]:=1;
for i:=2 to 11 do
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:= 1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
var
a:array[0..15] of integer;
f:array[0..11,0..10000] of int64;
i,j,n:longint;
begin
read(n);
a[1]:=1;
f[0,0]:=1;
for i:=2 to 11 do
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t : integer;
    a : array [1..100000] of integer;
 
begin
p := 1;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:= 1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t : integer;
    a : array [1..100000] of integer;
 
begin
p := 1;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
var
a:array[0..15] of integer;
f:array[0..11,0..10000] of int64;
i,j,n:longint;
begin
read(n);
a[1]:=1;
f[0,0]:=1;
for i:=2 to 11 do
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:= 1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t : integer;
    a : array [1..100000] of integer;
 
begin
p := 0;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t : integer;
    a : array [1..100000] of integer;
 
begin
p := 0;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:= 1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program pro10(input,output);
var n,i,j,t:integer;
    a: array[1..100000] of integer;
begin
 readln(n);
 j:=0;
 for i:= 1 to n do
  read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t : integer;
    a : array [1..100000] of integer;
 
begin
p := 0;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...

1
2
3
4
5
6
7
8
9
program gr10(input,output);
var i,n,p,t : integer;
    a : array [1..100000] of integer;
 
begin
p := 0;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 ...