почему закрывается делфи когда начинаю вводить данные

program Pelengacia;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var x, f, h1, h2, h3, h4, A, K, i, lam, c, vc, r1, r2, r3, r4, r5, Pmw, Pdbm : real;
E1, E2, E3, E4, E5 : real;

begin
A:=0.1;
writeln('Rasstoyanie ot steny do peredatchika');
readln(h1);
writeln('Rasstoyanie ot steny2 do peredatchika');
readln(h2);
writeln('Rasstoyanie ot potolka do peredatchika');
readln(h3);
writeln('Rasstoyanie ot pola do peredatchika');
readln(h4);
writeln('chastota signala');
readln(f);
writeln('koefficient otrazheniya');
readln(K);
writeln('rasstoyanie');
readln(x);
{mnogoluchevoe rasprostranenie}
i:=sqrt(-1);
c:= 3*exp(8*ln(10));
lam:=c/f;
vc:=2*3.14/lam;
r1:=x;
r2:=sqrt(sqr(2*h1)+sqr(x));
r3:=sqrt(sqr(2*h2)+sqr(x));
r4:=sqrt(sqr(2*h3)+sqr(x));
r5:=sqrt(sqr(2*h4)+sqr(x));
E1:=A/(r1*exp(i*k*r1));
E2:= (A*K)/(r2*exp(i*k*r2));
E3:= (A*K)/(r3*exp(i*k*r3));
E4:= (A*K)/(r4*exp(i*k*r4));
E5:= (A*K)/(r5*exp(i*k*r5));
Pmw:=sqr(abs(E1+E2+E3+E4+E5));
Pdbm:=10*Log10(Pmw*1000);
write('dlina volny: lam =');
writeln(lam);
write('volnovoe chislo: vc =');
writeln(vc);
write('rasstoyanie ot pervogo mnimogo istochnika: r2 = ');
writeln(r2);
write(' rasstoyanie ot vtorogo mnimogo istochnika: r3 =');
writeln(r3);
write(' rasstoyanie ot tretego mnimogo istochnika: r4 =');
writeln(r4);
write(' rasstoyanie ot chetvertogo mnimogo istochnika: r5 =');
writeln(r5);
write('neotrazhenniy signal: E1 =');
writeln(E1);
write('otrazhenniy ot steny: E2 =');
writeln(E2);
write('otrazhenniy ot 2-oi steny: E3 =');
writeln(E3);
write('otrazhenniy ot potolka: E4 =');
writeln(E4);
write('otrazhenniy ot pola: E5 =');
writeln(E5);
write('mownost v watt: Pmw =');
writeln(Pmw);
write('mownost v dBm: Pdbm =');
writeln(Pdbm);
readln;
end.