q198415608

program q198415608;

uses GraphABC;

procedure DrawE(x: integer; y: integer);
begin
  Line(x,y,x,100+y);
  Line(x,y,50+x,y);
  Line(x,100+y,50+x,100+y);
  Line(x,50+y,40+x,50+y);
end;

procedure DrawU(x: integer; y: integer);
begin
  Line(x,y,x,100+y);
  Line(x,50+y,40+x,50+y);
  Ellipse(40+x,y,100+x,100+y);
end;

begin
  SetWindowSize(225, 150);
  ClearWindow;
  CenterWindow;

  DrawE(25, 25);
  DrawU(100, 25);
end.