лаб9 - вариант 24 (программа)

lab9.pas

Program lab9;
uses graph,obj_un,crt;
var i:integer; ob:obj;
{main}
Begin
   ob.graphinit;
   ob.setcoord(300,230,30);
   for i:=1 to 5 do
   begin
      ob.circleshow;
      delay(500);
      ob.circlehide;
      delay(500);
      ob.rectshow;
      delay(500);
      ob.recthide;
      delay(500);
      ob.treugshow;
      delay(500);
      ob.treughide;
      delay(500);
   end;
   readkey;
   ob.graphclose;
End.