program vodina_platna;
const n = 10;
var pole: array [0..(n-1),0..(n-1)] of integer;
procedure generuj(); //vygeneruje n*n pole s hodnotami 0/1
var i,j: integer;
begin
randomize;
for i:=0 to (n-1) do
for j:=0 to (n-1) do pole [i,j]:= round(random);
end;
procedure vypis();
var k,l: integer;
begin
for k:=0 to (n-1) do
begin
for l:=0 to (n-1) do
begin
write(pole [k,l]);
end;
writeln();
end;
end;
procedure sused(y,x: integer);
var z,v,s,j: boolean;
begin
if pole [y,x-1]=1 then z:=true else z:=false;
if pole [y,x+1]=1 then v:=true else v:=false;
if pole [y+1,x]=1 then s:=true else s:=false;
if pole [y-1,x]=1 then j:=true else j:=false;
writeln (z,' ',v,' ',s,' ',j);
end;
begin
generuj();
vypis();
sused(2,2);
readln;
end.
cHJvZ3JhbSB2b2RpbmFfcGxhdG5hOwpjb25zdCBuID0gMTA7CnZhciBwb2xlOiBhcnJheSBbMC4uKG4tMSksMC4uKG4tMSldIG9mIGludGVnZXI7Cgpwcm9jZWR1cmUgZ2VuZXJ1aigpOyAvL3Z5Z2VuZXJ1amUgbipuIHBvbGUgcyBob2Rub3RhbWkgMC8xCnZhciBpLGo6IGludGVnZXI7CmJlZ2luCnJhbmRvbWl6ZTsKICBmb3IgaTo9MCB0byAobi0xKSBkbwogICAgZm9yIGo6PTAgdG8gKG4tMSkgZG8gcG9sZSBbaSxqXTo9IHJvdW5kKHJhbmRvbSk7CmVuZDsKCnByb2NlZHVyZSB2eXBpcygpOwp2YXIgayxsOiBpbnRlZ2VyOwpiZWdpbgpmb3Igazo9MCB0byAobi0xKSBkbwogIGJlZ2luCiAgZm9yIGw6PTAgdG8gKG4tMSkgZG8KICAgIGJlZ2luCiAgICB3cml0ZShwb2xlIFtrLGxdKTsKICAgIGVuZDsKICB3cml0ZWxuKCk7CiAgZW5kOwplbmQ7Cgpwcm9jZWR1cmUgc3VzZWQoeSx4OiBpbnRlZ2VyKTsKdmFyIHosdixzLGo6IGJvb2xlYW47CmJlZ2luCmlmIHBvbGUgW3kseC0xXT0xIHRoZW4gejo9dHJ1ZSBlbHNlIHo6PWZhbHNlOwppZiBwb2xlIFt5LHgrMV09MSB0aGVuIHY6PXRydWUgZWxzZSB2Oj1mYWxzZTsKaWYgcG9sZSBbeSsxLHhdPTEgdGhlbiBzOj10cnVlIGVsc2Ugczo9ZmFsc2U7CmlmIHBvbGUgW3ktMSx4XT0xIHRoZW4gajo9dHJ1ZSBlbHNlIGo6PWZhbHNlOwp3cml0ZWxuICh6LCcgJyx2LCcgJyxzLCcgJyxqKTsKZW5kOwoKCmJlZ2luCmdlbmVydWooKTsKdnlwaXMoKTsKc3VzZWQoMiwyKTsKcmVhZGxuOwplbmQuIA==