Program PiOnPas;
uses GraphABC;
var q,w,x1,y1,x2,y2:integer;
begin
x1:=0;
x2:=0;
y1:=0;
y2:=250;
line(0,250,631,250);
begin
SetBrushColor(clBlack);
q:=20;
w:=40;
Rectangle(q,0,w,150);
Rectangle(q+210,0,w+210,150);
Rectangle(q+210+210,0,w+210+210,150);
q:=50;
w:=70;
Rectangle(q,0,w,150);
Rectangle(q+210,0,w+210,150);
Rectangle(q+210+210,0,w+210+210,150);
q:=110;
w:=130;
Rectangle(q,0,w,150);
Rectangle(q+210,0,w+210,150);
Rectangle(q+210+210,0,w+210+210,150);
q:=140;
w:=160;
Rectangle(q,0,w,150);
Rectangle(q+210,0,w+210,150);
Rectangle(q+210+210,0,w+210+210,150);
q:=170;
w:=190;
Rectangle(q,0,w,150);
Rectangle(q+210,0,w+210,150);
Rectangle(q+210+210,0,w+210+210,150);
end;
BrushStyle;
while x1<=640 do<br> begin
line(x1,y1,x2,y2);
x1:=x1+30;
x2:=x1;
end;
BrushColor ();
SetBrushStyle (bsSolid);
SetFontName ('Arial');
TextOut(10,250,'Q');
end.
Почему вместо символов выводит черный квадрат на экран?
