Определить силу притяжения между телами массой m1 и m2,находящимися на расстоянии r.паскаль

Var m1,m2,R:real;
Begin
Write('m1 = ');ReadLn(m1);
Write('m2 = ');ReadLn(m2);
Write('R = ');ReadLn(R);
Write('F = ',0.0000000000667*(m1*m2)/(R*R))
End.