That's my code:

var
  V, Vx, Vy, L,
  a, K, t: Double;
begin
  ReadLn(V);  ReadLn(a);  ReadLn(K); K := 1/Sqrt(K);
  Vx := V * cos(a*Pi/180);
  Vy := V * sin(a*Pi/180);
  t := Vy * 0.2;
  L := 0;
  repeat
    L := L + Vx * t;
    Vx := Vx * K;
  until Vx < 1E-3;
  WriteLn(L:0:2);
end.

I'm using only one division: 1/Sqrt(K). K > 1. There is no other division operation. But why it crashing?

In Delphi it's working without warnings.

P.s.: Sorry for my English.