clc;
r=6400+1000;     //radius in metre
g=(6400/7400)*(6400/7400)*9.8;  //calculating g at 1000km using g=(r earth/r)*g
disp(g,"Accelaration due to gravity at 1000km = ");  //displaying result