Kak tebe takoye, Azat? Po suti tol'ko 1 cycle

const w = 7; h = 7;
var i,j:integer;
a:array[1..h,1..w] of integer;
b:array[1..19] of integer;
begin
b[1]:=1040; b[2]:=1079; b[3]:=1072; b[4]:=1090; b[5]:=32;
b[6]:=1087; b[7]:=1080; b[8]:=1076; b[9]:=1086; b[10]:=1088;
b[11]:=1072; b[12]:=1089; b[13]:=32; b[14]:=1077; b[15]:=1073;
b[16]:=1072; b[17]:=1085; b[18]:=1099; b[19]:=1081;



randomize;
for i:=1 to h do
for j:=1 to w do
a[i,j]:=0;

for i:=1 to h do
if i<=h div 2 + 1 then
for j:=5-i to i+3 do a[i,j]:=1 else
for j:=i-3 to 11-i do a[i,j]:=1;

for i:=1 to h do begin
for j:=1 to w do
write(a[i,j]:3);
writeln;
end;
writeln;
for i:=1 to 19 do
write(chr(b[i]));
end.