РЕШИТЕ В ПАСКАЛЕ: Найти силы притяжения F:=G*m1*M/R^2 двух тел, если G=9.81 м/с2, M=5,94х1024 кг, m1=500кг, а расстояние R=2,3, …10 км.

const   G = 9.81;  M = 5.94*1024;  m1 = 500;var r: integer;  f: real;begin  for r := 2 to 20 do  begin    f := G * m1 * M / sqr(R*1000);    writeln (r:2, 'км => ', f:5:5, ' Н');  end;end.