for i:=1 to 10 do
begin
for j:=1 to 20 do write(fff,T[i,j],'|');
writeln(fff,'__________________________');
end;

program Project2;
       
{$APPTYPE CONSOLE}
       
uses
     SysUtils;
       
var i:byte;
begin
write(#218);
for i:=1 to 26 do
if i=12 then write(#194)
else write(#196);
writeln(#191);
writeln(#179,' 123',#179:8,' a','b':11,' ',#179);
writeln(#179,#179:12,#179:15);
writeln(#179,'123':7,#179:5,'34.43':10,#179:5);
writeln(#179,#179:12,#179:15);
writeln(#179,' 123':10,#179:2,' c','d':11,' ',#179);
writeln(#179,#179:12,#179:15);
write(#195);
for i:=1 to 26 do
if i=12 then write(#197)
else if i in[17,22] then write(#194)
else write(#196);
writeln(#180);
write(#179);
for i:=1 to 11 do write('*');
writeln(#179,#179:5,#179:5,#179:5);
writeln(#179,#179:12,#179:5,#179:5,#179:5);
write(#179,#195:12);
for i:=1 to 14 do
if i in [5,10] then write(#197)
else write(#196);
writeln(#180);
writeln(#179,'**':3,'**':7,#179:2,#179:5,#179:5,#179:5);
writeln(#179,#179:12,#179:5,#179:5,#179:5);
write(#179,' ':11,#179);
for i:=1 to 14 do
if i in [5,10] then write(#197)
else write(#196);
writeln(#180);
write(#179);
for i:=1 to 11 do write('*');
writeln(#179,#179:5,#179:5,#179:5);
writeln(#179,#179:12,#179:5,#179:5,#179:5);
write(#192);
for i:=1 to 26 do
if i in [12,17,22] then write(#193)
else write(#196);
writeln(#217);
readln
end.

procedure TForm1.Button1Click(Sender:TObject);
var ImageRect:TRect;
begin
with Printer, Image1 do
begin
ImageRect.Top:=0;
ImageRect.Left:=0;
ImageRect.Right:=PageWidth;
ImageRect.Bottom:=PageHeight;
BeginDoc;
Canvas.StretchDraw(ImageRect,Picture.Bitmap);
EndDoc;
end;
end;