ARRAY in Pascal

uses wincrt;

var
data:array[1..7,1..7] of byte;
baris,kolom:integer;

begin

for baris:=1 to 7 do
begin
for kolom:=1 to 7 do
if (baris=kolom) or (baris+kolom=8) or (baris=4) or (kolom=4) then

data[baris,kolom]:=0
else
data[baris,kolom]:=1;
end;

for baris:=1 to 7 do
begin
for kolom:=1 to 7 do
write(' ',data[baris,kolom]);
writeln;
end;
end;