программа не отображает результаты расчётов

[seveso]

Программа работает но после строки
"write (' Флуктуации уровня сигнала в точке приёма | ');
read(fluk);"
вылетает и не завершает дальнейшие рассчеты

program gsm;
uses crt;
const typ=2;Ro=132;
var
    hms,ahms1,ahms2:real;
    lh,Ga,fluk:real;
    Pbc1,Pbc2,Pbc3,Pbc4,Hbs,Fr,Scot,Rsot:real;

    begin
          clrscr;
          writeln('           Расчет мощности базовых станций');
          writeln('-----------------------------------------------------------------------------');
          writeln(' Введите параметры базовой станции                              |');
          write  (' Радиус соты Rsot  км                                           |    ');
          read(Rsot);
          write  (' рабочую частоту (Fr) в МГц.                                    |  ');
          read (Fr);
          write  (' высоту антенны базовой станции (Hbs) в метрах.                 |   ');
          read (Hbs);
          write  (' Суммарный коэффициент усиления антенн Ga. Например 12 дБ       |   ');
          read(Ga);
          write  (' Флуктуации уровня сигнала в точке приёма                       |   ');
          read(fluk);
          Hms:=1.5;
          ahms1:=3.2*sqr(ln(11.75*Hms)/ln(10))-4.97;
          ahms2:=(1.1*ln(Fr)/ln(10)-0.7)*Hms-(1.56*ln(Fr)/ln(10)-0.8);
          lh:=69.55+26.16*ln(Fr)/ln(10)-13.82*ln(Hbs)/ln(10)+(44.9-6.55*ln(Hbs)/ln(10))*ln(Rsot)/ln(10);
          Pbc1:=Ro-Ga+lh-ahms1+fluk;
          Pbc2:=Ro-Ga+lh-ahms2+fluk;
          Pbc3:=Ro-Ga+lh-2*sqr(ln(Fr/28)/ln(10))-5.4+fluk;
          Pbc4:=Ro-Ga+lh-4.78*sqr(ln(Fr)/ln(10))+18.33*ln(Fr)/ln(10)-40.94+fluk;

          writeln(' Мощность базовой станции (Pbc) по формуле Хата, дБВт           | ');
          writeln(' Для больших городов                                            | ' ,Pbc1:4:1);
          writeln(' Для малых и средних городов                                    | ' ,Pbc2:4:1);
          writeln(' Для пригородов                                                 | ' ,Pbc3:4:1);
          writeln(' Для сельской местности                                         | ' ,Pbc4:4:1);
          
          writeln('          Э Т А П  3. Расчет мощности базовых станций');
          writeln('-----------------------------------------------------------------------------');
          writeln(' Параметры базовой станции                                  |');
          writeln(' Радиус соты Rsot , kм                                      |    ',Rsot:4:3);
          writeln(' Рабочая частота (Fr) в МГц.                                |  ',Fr:5:3);
          writeln(' Высота антенны базовой станции (Hbs) в метрах.             |   ',Hbs:4:2);
          writeln(' Суммарный коэффициент усиления антенн Ga.                  |   ',Ga:4:2);
          writeln(' Флуктуации сигнала в точке приёма                          |    ',fluk:4:2);
          writeln(' Мощность базовой станции (Pbc) по формуле Хата, дБВ        | ' );
          writeln(' Для больших городов                                        |  ',Pbc1:4:1);
          writeln(' Для малых и средних городов                                |  ',Pbc2:4:1);
          writeln(' Для пригородов                                             |  ',Pbc3:4:1);
          writeln(' Для сельской местности                                     |  ',Pbc4:4:1);
          readln;
         end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

либо read(fluk); замените на readln(fluk);

либо в конце, поставьте ДВА раза Readln;

[seveso]

Сергей, спасибо вам огромное.
впредь обещаю оформлять посты правильно