קוד:
program stam (input,output);
type
arraytype = array [1..5,1..5] of integer;
function Ma (i,j:integer; arr:arraytype):boolean;
begin
if ((i=5) and (j=2)) then
ma:=true
else
if (arr[i+1,j-1]=0) and ((j-1>0) and (i+1<6)) then
ma:=ma(i+1,j-1,arr)
else
if (arr[i+1,j]=0) and (i+1<6) then
ma:=ma(i+1,j,arr)
else
if (arr[i+1,j+1]=0) and ((i+1<6) and (j+1<6)) then
ma:=ma(i+1,j+1,arr)
else
ma:=false;
end;
procedure Arr_init (var arr:arraytype);
var
i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
arr[i,j]:=0;
end;
var
arr:arraytype;
begin
Arr_init(arr);
arr[4,1]:=1;
arr[5,1]:=1;
arr[5,2]:=1;
arr[5,3]:=1;
arr[1,3]:=1;
arr[1,4]:=1;
arr[2,4]:=1;
arr[3,4]:=1;
writeln (ma(1,2,arr));
readln;
end.