Нарисовать любой рисунок

uses CRT, GraphABC;
procedure Draw(x, y, l, a: Real);
procedure Rect(x1, y1, l: Integer; a1: Real);
begin
    MoveTo(x1, y1);
    LineTo(x1 + Round(l * cos(a1)), y1 - Round(l * sin(a1)));
    LineTo(x1 + Round(l * sqrt(2) * cos(a1 + pi/4)), 
        y1 - Round(l * sqrt(2) * sin(a1 + pi/4)));
    LineTo(x1 + Round(l * cos(a1 + pi/2)), y1 - Round(l * sin(a1 + pi/2)));
    LineTo(x1, y1);
end;
 
begin
    if l > 4 then
    begin
        Rect(Round(x), Round(y), Round(l), a);
        Draw(x - l*sin(a), y - l * cos(a), l / sqrt(2), a + pi / 4);
        Draw(
            x - l * sin(a) + l / sqrt(2) * cos(a + pi/4),
            y - l * cos(a) - l / sqrt(2) * sin(a + pi/4), 
            l / sqrt(2), 
            a - pi/4);
    end;
end;
 
begin   
    Draw(280, 460, 100, 0);
    ReadKey 
end.

uses graphabc;
begin
  setwindowsize(400,190);
  rectangle(20,20,380,70);
  setbrushcolor(clred);
  rectangle(20,70,380,120);
  setbrushcolor(clblue);
  rectangle(20,120,380,170);
end.

uses crt,graphABC;
var x1,x2,y1,y2,d1,d2:integer;
begin
x1:=10;
y1:=windowheight div 3;
x2:=windowwidth-10;
y2:=2*y1;
hidecursor;
lockdrawing;
repeat
clearwindow;
setbrushcolor(clWhite);
textout(windowwidth div 2-50,20,'Выход любая клавиша');
if x1<=10 then d1:=5;
x1:=x1+d1;
if x2>=windowwidth-10 then d2:=-5;
x2:=x2+d2;
if x1>=windowwidth-10 then d1:=-5;
if x2<=10 then d2:=5;
setpencolor(clRed);
setbrushcolor(clRed);
circle(x1,y1,10);
circle(x2,y2,10);
delay(50);
redraw;
until keypressed;
end.