1
2
3
4
5
6
7
8
9
var g:array[0..10,0..10] of byte;
    used:array[0..10,0..10] of boolean;
    i,j,n,v1,v2,k:longint;
    c:char;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[0..10,0..10] of byte;
    used:array[0..10,0..10] of boolean;
    i,j,n,v1,v2,k:longint;
    c:char;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[0..10,0..10] of byte;
    used:array[0..10,0..10] of boolean;
    i,j,n,v1,v2,k:longint;
    c:char;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[0..10,0..10] of byte;
    used:array[0..10,0..10] of boolean;
    i,j,n,v1,v2,k:longint;
    c:char;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[0..10,0..10] of byte;
    used:array[0..10,0..10] of boolean;
    i,j,n,v1,v2,k:longint;
    s:string;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[0..10,0..10] of byte;
    used:array[0..10,0..10] of boolean;
    i,j,n,v1,v2,k:longint;
    s:string;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[-10..10,1..10] of byte;
    used:array[-10..10,1..10] of boolean;
    i,j,n,v1,v2,k:longint;
    s:string;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[-10..10,1..10] of byte;
    used:array[-10..10,1..10] of boolean;
    i,j,n,v1,v2,k:longint;
    s:string;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
{$R+}
var g:array[-10..10,1..10] of byte;
    used:array[-10..10,1..10] of boolean;
    i,j,n,v1,v2,k:longint;
    s:string;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
 ...

1
2
3
4
5
6
7
8
9
{$R+}
var g:array[-10..10,1..10] of byte;
    used:array[-10..10,1..10] of boolean;
    i,j,n,v1,v2,k:longint;
    s:string;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[1..10,1..10] of byte;
    used:array[1..10,1..10] of boolean;
    i,j,n,v1,v2,k:longint;
    s:string;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[1..10,1..10] of byte;
    used:array[1..10,1..10] of boolean;
    i,j,n,v1,v2,k:longint;
    s:string;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[1..10,1..10] of byte;
    used:array[1..10,1..10] of boolean;
    i,j,n,v1,v2,k:longint;
    s:string;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[1..10,1..10] of byte;
    used:array[1..10,1..10] of boolean;
    i,j,n,v1,v2,k:longint;
    s:string;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[1..10,1..10] of byte;
    used:array[1..10,1..10] of boolean;
    i,j,n,v1,v2,k:longint;
    c:char;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var g:array[1..10,1..10] of byte;
    used:array[1..10,1..10] of boolean;
    i,j,n,v1,v2,k:longint;
    c:char;
procedure find(i,j:longint);
 begin
  if not used[i][j] then inc(k); used[i][j]:=true; 
   if (g[i+1][j] = 1) and (not used[i+1][j]) then find(i+1,j) else
     if (g[i-1][j] = 1) and (not used[i-1][j]) then find(i-1,j) else
 ...

1
2
3
4
5
6
7
8
9
var 
s:string;
a:array[1..26] of byte;
i,p:byte;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string;
a:array[1..26] of byte;
p:byte;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string;
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string;
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string[201];
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string[201];
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string[201];
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string[201];
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string[200];
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string[200];
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string[200];
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string[200];
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
var 
s:string[200];
a:array[1..26] of byte;
p,i,j:integer;
begin
 
while (s[1]<>'*') do
begin
readln(s);
 ...

1
2
3
4
5
6
7
8
9
function czypierwsza(a:cardinal): boolean;
var l1, p1:cardinal;
begin
  l1 := 0;
  for p1 := 1 to a do
    if a mod p1 = 0 then
      l1 := l1 + 1;
  czypierwsza:= l1 = 2
end;
 ...