Real выдаёт nan - PascalABC.NET

program ecol;
 
uses
  crt;
 
var
  Xn, X, M, Ct, Vt, Vt1, V, Xcr, Ch, chisl, znam: real;
  menu: integer;
 
begin
  clrscr;
  writeln('Что вы хотите посчитать?');
  writeln('1 Массовая концентрация растворенного в воде кислорода');
  writeln('2 Степень насыщения растворенным кислородом пробы воды');
  writeln('Введите число');
  Readln(menu);
  case menu of
    1:
      begin
        chisl := M * Ct * Vt * V * 1000;
        znam := Vt1 * (V - 2);
        X := chisl / znam;
        writeln('Ct: ');
        readln(Ct);
        writeln('Vt: ');
        readln(Vt);
        writeln('V: ');
        readln(V);
        writeln('M: ');
        readln(M);
        writeln('Vt1: ');
        readln(Vt1);
        writeln(chisl);
        writeln(znam);
        writeln('X=', X);
      end;
    2:
      begin
        clrscr;
        Xn := (Xcr * 100) / Ch;
        writeln('Xcr');
        readln(Xcr);
        writeln('Ch');
        readln(Ch);
        Writeln('X=', Xn);
      end;
  end;
end.