1
2
3
4
5
6
7
8
9
program Anjuta;
var
  i,j  : integer;
  A    : array[1..5,1..5] of integer;
  B    : array[1..25] of integer;
  curB : integer;
begin
  {init of array}
  for i:=1 to 5 do
 ...

1
2
3
4
5
6
7
8
9
program Anjuta;
var
  i,j  : integer;
  A    : array[1..5,1..5] of integer;
  B    : array[1..25] of integer;
  curB : integer;
begin
  {init of array}
  for i:=1 to 5 do
 ...

1
2
3
4
5
6
7
program mult67 (input,output);
    var N : integer;
begin
  readln(N);
  if (N mod 7 = 0) and (N mod 6 <> 0) then writeln('yes')
       else writeln('no');
end.

1
2
3
4
5
6
7
program mult67 (input,output);
    var N : integer;
begin
  readln(N);
  if (N mod 7 = 0) and (N mod 6 <> 0) then writeln('yes')
       else writeln('no');
end.

1
2
3
4
5
6
7
program mult67 (input,output);
    var N : integer;
begin
  readln(N);
  if (N mod 7 = 0) and (N mod 6 <> 0) then writeln('yes')
       else writeln('no');
end.

1
2
3
4
5
6
7
program mult67 (input,output);
    var N : integer;
begin
  readln(N);
  if (N mod 7 = 0) and (N mod 6 <> 0) then writeln('yes')
       else writeln('no');
end.

1
2
3
4
5
6
7
program mult67 (input,output);
    var N : integer;
begin
  readln(N);
  if (N div 7 = 0) and (N div 6 <> 0) then writeln('yes')
       else writeln('no');
end.

1
2
3
4
5
6
7
program mult67 (input,output);
    var N : integer;
begin
  readln(N);
  if (N div 7 = 0) and (N div 6 <> 0) then writeln('yes')
       else writeln('no');
end.

1
2
3
4
5
6
7
8
9
program sndlast (input,output);
    var a : array [1..9] of char;
        i : integer;
begin
    i:=0;
    while not eoln do
      begin
        i:=i+1;
        read(a[i])
 ...

1
2
3
4
5
6
7
8
9
program sndlast (input,output);
    var a : array [1..9] of char;
        i : integer
begin
    i:=0;
    while not eoln do
      begin
        i:=i+1;
        read(a[i])
 ...

1
2
3
4
5
6
7
8
9
program bt;
uses crt;
type mang=array[1..20] of integer;
var
a:mang;
i:integer;
begin
clrscr;
for i:=1 to 20 do
 ...

1
2
3
4
5
6
7
8
9
program ask(input, output);
 
const max=100000;
 
type list=array [1..max] of integer;
 
var n,x,first,last,mid,i,count,sn:integer;
    a:list;
    found:boolean;
 ...

1
2
3
4
5
6
7
8
9
program ask(input, output);
 
const max=100000;
 
type list=array [1..max] of integer;
 
var n,x,first,last,mid,i,count,sn:integer;
    a:list;
    found:boolean;
 ...

1
2
3
4
5
6
7
8
9
program ask(input, output);
 
const max=1000000;
 
var a: array [1..max] of integer;
    i,n,j, sum: integer;
    flag:boolean;
 
begin
 ...

1
2
3
4
5
6
7
8
9
program ask(input, output);
 
const max=1000000;
 
var a: array [1..max] of integer;
    i,n,j, sum: integer;
    flag:boolean;
 
begin
 ...

1
2
3
4
5
6
7
8
9
program ask(input, output);
 
const max=100000;
 
var n, i, j, k, count, c:integer;
    a: array [1..max] of integer;
    fl, flag: boolean;
 
begin
 ...

1
2
3
4
5
6
7
8
9
program ask(input, output);
 
const max=100000;
 
var n, i, j, k, count, c:integer;
    a: array [1..max] of integer;
    fl, flag: boolean;
 
begin
 ...

1
2
3
4
5
6
7
8
9
Program exer (input,output);
var i,N,p,c,d:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    d:=i div 10;
    p:=0;
    while (i<=N) do
 ...

1
2
3
4
5
6
7
8
9
Program exer (input,output);
var i,N,p,c,d:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    d:=i div 10;
    p:=0;
    while (i<=N) do
 ...

1
2
3
4
5
6
7
8
9
Program exer (input,output);
var i,N,p,c:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    p:=0;
    while (i<=N) do
          begin
 ...

1
2
3
4
5
6
7
8
9
Program exer (input,output);
var i,N,p,c:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    p:=0;
    while (i<=N) do
          begin
 ...

1
2
3
4
5
6
7
8
9
Program exer (input,output);
var i,N,p,c:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    p:=0;
    while (i<=N) do
          begin
 ...

1
2
3
4
5
6
7
8
9
Program exer (input,output);
var i,N,p,c:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    p:=0;
    while (i<=N) do
          begin
 ...

1
2
3
4
5
6
7
8
9
program ask(input, output);
 
const max=100000;
 
var n,c, i, count: integer;
    a: array[1..max] of integer;
    flag, fl: boolean;
 
begin
 ...

1
2
3
4
5
6
7
8
9
Program exer (input,output);
var i,N,p,c:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    p:=0;
    while (i<=N) do
          begin
 ...

1
2
3
4
5
6
7
8
9
Program exer (input,output);
var i,N,p,c:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    p:=0;
    while (i<=N) do
          begin
 ...

1
2
3
4
5
6
7
8
9
Program exer (input,output);
var i,N,p,c:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    p:=0;
    while (i<=N) do
          begin
 ...

1
2
3
4
5
6
7
8
9
Program exer (input,output);
var i,N,p,c:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    p:=0;
    while (i<=N) do
          begin
 ...

1
2
3
4
5
6
7
8
9
Program exer (input,output);
var i,N,p,c:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    p:=0;
    while (i<=N)) do
          begin
 ...

1
2
3
4
5
6
7
8
9
Program exer(input,output);
var N,i,p:integer;
    f:boolean;
begin
    readln(N);
    i:=1;
    p:=1;
    f:=false;
    while (not f) do
 ...