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

uses crt;var f,y,m1,m2,r:real;beginclrscr;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.