var a,b,c,d,e,f;

begin
  call cvclear;
  call cvclick;
  a:=cvx;
  b:=cvy;
  call cvball(a,b,5);
  call cvclick;
  c:=cvx;
  d:=cvy;
  call cvball(c,d,5);
  call cvclick;
  e:=cvx;
  f:=cvy;
  call cvball(e,f,5);
  while 1=1 do
    begin
      call cvclear;
      call cvtriangle(a,b,c,d,e,f);
      call wait(500);
      call cvclear;
      call cvline(a,b,c,d);
      call cvline(c,d,e,f);
      call cvline(a,b,e,f);
      call wait(500);
    end
end.