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 : 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
var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
s,r,z,i,j,k:longint;
aaa:boolean;
procedure f(x,y:longint;ab:string);
begin
if r-y+1>=k then
 ...

1
2
3
4
5
6
7
8
9
var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
s,r,z,i,j,k:longint;
aaa:boolean;
procedure f(x,y:longint;ab:string);
begin
if r-y+1>=k then
 ...

1
2
3
4
5
6
7
8
9
program gr8(input,output);
var p, i, n, k, j, s : integer;
     flag : boolean;
     
function dunami(a,i : integer): integer;
 var k : integer;    
 begin
 if i = 0 then dunami := 1
 else
 ...

1
2
3
4
5
6
7
8
9
program gr8(input,output);
var p, i, n, k, j, s : integer;
     flag : boolean;
     
function dunami(a,i : integer): integer;
 var k : integer;    
 begin
 if i = 0 then dunami := 1
 else
 ...

1
2
3
4
5
6
7
8
9
program gr8(input,output);
var p, i, n, k, j, s : integer;
     flag : boolean;
     
function dunami(a,i : integer): integer;
 var k : integer;    
 begin
 if i = 0 then dunami := 1
 else
 ...

1
2
3
4
5
6
7
8
9
var
F:array[1..100] of int64;
I,n,j:longint;
Begin
Read(n);
F[1]:=2;
F[2]:=4;
F[3]:=7;
For i:=4 to n do
 ...

1
2
3
4
5
6
7
8
9
var
F:array[1..100] of int64;
I,n,j:longint;
Begin
Read(n);
F[1]:=2;
F[2]:=4;
F[3]:=7;
For i:=4 to n do
 ...

1
2
3
4
5
6
7
8
9
var
F:array[1..100] of int64;
I,n,j:longint;
Begin
Read(n);
F[1]:=2;
For i:=2 to n do
For j:=1 to 3 do
If i-j>0 then inc(f[i],f[i-j]);
 ...

1
2
3
4
5
6
7
8
9
var
F:array[1..100] of int64;
I,n,j:longint;
Begin
Read(n);
F[1]:=2;
For i:=2 to n do
For j:=1 to 3 do
If i-j>0 then inc(f[i],f[i-j]);
 ...

1
2
3
4
5
6
7
8
9
var
F:array[1..100] of int64;
I,n,j:longint;
Begin
Read(n);
F[1]:=2;
For i:=2 to n do
For j:=1 to 3 do
If i-j>0 then inc(f[i],f[i-j]);
 ...

1
2
3
4
5
6
7
8
9
var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
s,r,z,i,j,k:integer;
aaa:boolean;
procedure f(x,y:integer;ab:string);
var
i:longint;
 ...

1
2
3
4
5
6
7
8
9
var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
s,r,z,i,j,k:integer;
aaa:boolean;
procedure f(x,y:integer;ab:string);
var
i:longint;
 ...

1
2
3
4
5
6
7
8
9
var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
s,r,z,i,j,k:integer;
aaa:boolean;
procedure f(x,y:integer;ab:string);
var
i:longint;
 ...

1
2
3
4
5
6
7
8
9
program gr8(input,output);
var p, i, n, k, j, s : integer;
     flag : boolean;
     
function dunami(a,i : integer): integer;
 var k : integer;    
 begin
 if i = 0 then dunami := 1
 else
 ...

1
2
3
4
5
6
7
8
9
program pro8 (input,output);
var n,i,j,x,y,z,k :integer;
 
function dinami(a,d:integer) :integer;
var k:integer;
begin
 if d=0 then dinami:=1
 else
 begin
 ...

1
2
3
4
5
6
7
8
9
program pro8 (input,output);
var n,i,j,x,y,z,k :integer;
 
function dinami(a,d:integer) :integer;
var k:integer;
begin
 if d=0 then dinami:=1
 else
 begin
 ...

1
2
3
4
5
6
7
8
9
program pro8 (input,output);
var n,i,j,x,y,z,k :integer;
 
function dinami(a,d:integer) :integer;
var k:integer;
begin
 if d:=0 then dinami:=1
 else
 begin
 ...

1
2
3
4
5
6
7
8
9
var
F:array[1..100] of int64;
I,n,j:longint;
Begin
Read(n);
F[1]:=1;
For i:=2 to n do
For j:=1 to 3 do
If i-j>0 then inc(f[i],f[i-j]);
 ...

1
2
3
4
5
6
7
8
9
program gr8(input,output);
var p, i, n, k, j, s : integer;
     flag : boolean;
     
function dunami(a,i : integer): integer;
 var k : integer;    
 begin
 if i = 0 then dunami := 1
 else
 ...

1
2
3
4
5
6
7
8
9
var
F:array[1..100] of int64;
I,n,j:longint;
Begin
Read(n);
F[1]:=1;
For i:=2 to n do
For j:=1 to 3 do
If i-j>0 then inc(f[i],f[i-j]);
 ...

1
2
3
4
5
6
7
8
9
var
F:array[1..100] of int64;
I,n,j:longint;
Begin
Read(n);
F[1]:=1;
For i:=2 to n do
For j:=1 to 3 do
If i-j>0 then inc(f[i],f[i-j]);
 ...

1
2
3
4
5
6
7
8
9
var
F:array[1..100] of int64;
I,n,j:longint;
Begin
Read(n);
F[1]:=1;
For i:=2 to n do
For j:=1 to 3 do
If i-j>0 then inc(f[i],f[i-j]);
 ...

1
2
3
4
5
6
7
8
9
program gr8(input,output);
var p, i, n, k, j, s : integer;
     flag : boolean;
     
function dunami(a,i : integer): integer;
 var k : integer;    
 begin
 if i = 0 then dunami := 1
 else
 ...

1
2
3
4
5
6
7
8
9
program gr8(input,output);
var p, i, n, k, j, s : integer;
     flag : boolean;
     
function dunami(a,i : integer): integer;
 var k : integer;    
 begin
 if i = 0 then dunami := 1
 else
 ...

1
2
3
4
5
6
7
8
9
var
al:char;
ab,bb,ac:string;
ar:array[1..100,1..100] of char;
s,r,z,i,j,k:integer;
aaa:boolean;
procedure f(x,y:integer;ab:string);
var
i:longint;
 ...

1
2
3
4
5
6
7
8
9
program pro8 (input,output);
var n,i,j,x,y,z,k :integer;
 
function dinami(a,d:integer) :integer;
var k:integer;
begin
 j:=0;
 dinami :=1;
 if a=2 then
 ...