uses graph, crt;
var
 nurkkiirus, lennukiirus, raskuskiirus, nurk: real;
 muntx, munty, ots1x, ots1y, ots2x, ots2y, pikkus: real;
 d, m: integer;
begin
 randomize;
 nurkkiirus:=0.5*random;
 nurk:=0; muntx:=100; munty:=0;
 lennukiirus:=2; raskuskiirus:=-0.01;
 pikkus:=10;
 d:=vga; m:=vgaMed;
 initgraph(d, m, '');
 repeat
  nurk:=nurk+nurkkiirus;
  munty:=munty+lennukiirus;
  lennukiirus:=lennukiirus+raskuskiirus;
  ots1x:=muntx+pikkus*cos(nurk);
  ots1y:=munty+pikkus*sin(nurk);
  ots2x:=muntx-pikkus*cos(nurk);
  ots2y:=munty-pikkus*sin(nurk);
  cleardevice;
  line(round(ots1x), round(300-ots1y),
       round(ots2x), round(300-ots2y));
  delay(100);
 until munty<0;
 readkey;
 closegraph;
end.