uses graphABC;

var i: integer;
var t: Boolean;
procedure KeyPress(key:char);
begin
if key<>#0 then t:=false;
end;
begin
t:=true;
randomize;
onkeypress:=KeyPress;
while t do begin
  Line(290, 111, 240, 190);
  Line(240, 190, 171, 190);
  Line(170, 190, 241, 250);
  Line(241, 250, 209, 320);
  Line(209, 320, 290, 289);
  Line(290, 289, 369, 318);
  Line(369, 318, 340, 248);
  Line(340, 248, 410, 190);
  Line(410, 190, 340, 190);
  Line(340, 190, 289, 111);
  while (i<10000) and t do
 begin
  FloodFill(320, 245, rgb(random(255),random(255),random(255)));
  sleep(10);
  i:=i+1;
  end;
  end;
  halt;
end.