Program Animation;
Uses Crt,Graph;
Var I,Gd,Gm:Integer;
Begin
Clrscr;
Gd:=Detect;
Gm:=2;
InitGraph (Gd,Gm,'C:\BP\BGI');
Repeat
SetBKColor (7);
ClearDevice;
SetColor (9);
For I:=200 To 300 Do Begin
PutPixel (250,I,9);
Delay (2500);
SetColor (6);
Line (250,200,290,110);
Line (290,110,305,110);
Line (305,110,250,200);
End;
For I:=250 To 350 Do Begin
PutPixel (I,300,9);
Delay(2500);
End;
For I:=200 To 300 Do Begin
PutPixel (350,I,9);
Delay(2500);
End;
For I:=250 To 350 Do Begin
PutPixel (I,200,9);
Delay(2500);
End;
Until Keypressed;
CloseGraph;
End.