Var v:real;
begin
write(Введите скорость в км/c: );
readln(v);
if v<7.9 then
writeln(Ракета упадет на Землю);
if v=7.9 then
writeln(Ракета будет двигаться вокруг Земли по круговой орбите);
if (v>7.9) and (v<11.2) then
writeln(Ракета будет двигаться вокруг Земли по эллиптической орбите);
if v=11.2 then
writeln(Ракета будет двигаться вокруг Солнца по круговой орбите);
if (v>11.2) and (v<16.4) then
writeln(Ракета будет двигаться вокруг Солнца по эллиптической орбите);
if v>16.4 then writeln(Ракета покинет Солнечную систему);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.