Написать программу, которая определяет силу всемирного тяготения. паскаль

Uses crt;

var f, y, m1, m2, r:real;

begin

clrscr;

y:=6.67*exp (-11*ln (10)) ;

WriteLn ('Введите массу первого тела в кг') ;

Readln (m1) ;

WriteLn ('Введите массу второго тела в кг') ;

Readln (m2) ;

WriteLn ('Введите расстояние между центрами масс тел в метрах') ;

Readln (r) ;

f:=y * (m1*m2/sqr (r)) ;

WriteLn ('Сила равна', f:6:2,' Ньютона (ов) ') ;

readln;

end.