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.

Всегда выдает NaN. Я уже даже и не знаю чего делать, помогите, пожалуйста.

Решение задачи: «Real выдаёт nan»

Листинг программы

        writeln('Ct: ');
        readln(Ct);
        writeln('Vt: ');
        readln(Vt);
        writeln('V: ');
        readln(V);
        writeln('M: ');
        readln(M);
        writeln('Vt1: ');
        readln(Vt1);
        chisl := M * Ct * Vt * V * 1000;
        znam := Vt1 * (V - 2);
        X := chisl / znam;
        writeln(chisl);
        writeln(znam);
        writeln('X=', X);

Объяснение кода листинга программы

Объявляются и инициализируются переменные: Ct, Vt, V, M, Vt1, chisl, znam, X.
Выводятся сообщения и призывы к вводу значений для переменных Ct, Vt, V, M, Vt1.
Считаются значения переменных Ct, Vt, V, M, Vt1.
Присваивается значение переменной chisl, равное произведению M, Ct, Vt, V, 1000.
Присваивается значение переменной znam, равное произведению Vt1 и (V — 2).
Присваивается значение переменной X, равное частному chisl на znam.
Выводятся значения переменных chisl, znam, X.