Решите в паскале: найти силы притяжения 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.