using the `fdiv` variable name when dividing with floating point `float` / `single` causes a hangup

[GSoftwareDevelopment]

uses crt;

const
  freq_ratio = 4;

var
  freq:float;
  fdiv:byte;
  tpq:longint;
  qtm:longint;

begin
  qtm:=454545;
  tpq:=120;
  freq:=1/((qtm/1000000)/tpq)*freq_ratio;
  fdiv:=round(64000/freq);
  writeLn(fdiv);
end.

The above code will cause the computer to hang. This is because a variable named fdiv is used, which conflicts with a math procedure of the same name.

[tebe6502]

issue #101 fixed

[GSoftwareDevelopment]

Thank you :)