begin. if(h<=0) then. if(h<20000) then. if((h>=20000) and(h<=50000)) then. if((h>=50000) and(h<=85000)) then. if((h>=85000) and(h<=690000)) then

begin

write ('Введите массу ракеты, кг (целое число): m= ');

readln(m0);

write ('Скорость расхода топлива, кг/с (не слишком много): u= ');

readln(u);

write ('Введите время, c (целое число, не слишком большое): t= ');

readln(t);

write ('Введите начатьную высоту, м: h0= ');

readln(h0);

write ('Введите скорость топлива, м/с: votn= ');

readln(votn);

varg:=9.81;

h:=h0+(votn*t)-(g*t*t/2)+((votn*m0/u))*(1-(u*t/m0))*(ln(1-(u*t/m0)));

if(h<=0) then

begin

Write ('вы ввели неверные данные, с таким пресетом ракета не полетит :(')

end

else

write ('h= ', h, ‘ м’);

if(h<20000) then

begin

write (' Ракета вышла в тропосферу!');

end;

if((h>=20000) and(h<=50000)) then

begin

write (' Ракета вышла в стратосферу!');

end;

if((h>=50000) and(h<=85000)) then

begin

write (' Ракета вышла в мезосферу!');

end;

if((h>=85000) and(h<=690000)) then

begin

write (' Ракета вышла в термосферу!');

end;

end.

Скриншот: