program sharik;
uses crt,graph;
const
  a=480;
  b=640;
var
   grDriver : integer;
   grMode   : integer;
   x1,y1,x2,y2:real;
   v0,alfa:real;
   x11,y11,x21,y21:integer;
   dt:real;
begin
  grDriver:= Detect;
  grMode:= 12;
  InitGraph( grDriver, grMode, 'E:\Install\Lab\BP\BGI' );
    x1:=320; y1:=200;
    dt:=1;
    v0:=1;
    alfa:=5;
    while not keypressed do begin
      x2:=x1+v0*cos(alfa*pi/180)*dt;
      y2:=y1+v0*sin(alfa*pi/180)*dt;
        x21:=round(x2); x11:=round(x1);
        y21:=round(y2); y11:=round(y1);
        line(x11,y11,x21,y21);
        if ((y2<0) or (y2>a)) then begin
      alfa:=360-alfa;
        end;
        if ((x2<0) or (x2>b)) then begin
      alfa:=360-alfa;
            v0:=-v0;
        end;
        x1:=x2;
        y1:=y2;
        delay(100);
    end;
end.