Помогите составить программу!пожалуйста!!!!ооочень надоракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.Известно,что при V16,4 ракета покинет солнечную систему.

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