[v1s2222]

Просто округляй (или отбрасывай дробную часть):

Код:

var
d3: extended;
d: integer;
begin
    d3:=49;
    d := trunc(sqrt(d3));
    if d=7 then
      begin
        d3:=50;
      end;

Тогда обработка всегда будет правильной.