problem z programem matematycznym

witam mam taki program i mozecie powiedzic dlaczego on mi niepokauje wyniku

program matma ;
uses crt ;

var
m:real;
k:real;
f:real;
r:real;
const
g:real = 10;


begin

clrscr ;
writeln('Witamy w porgramie matemtycznym');
writeln('Podaj mase mezczyzny');
readln(m);
writeln('Podaj mase kobiety');
readln(k);
writeln('podaj odlegosc miedzy nimi');
readln(r);

f:= g*(m*k)/sqr(r);

writeln(f);
readkey;

end.

a wzór jest taki
F=Gkm/r^2

We wzorze na F stała G to stała grawitacji =6,6710^{(-11) [N}m</sup>2/(kg^2)] a nie przyśpieszenie ziemskie.
Odległość r podawaj w metrach to siłę F otrzymasz w niutonach [N]
komenda readkey nic nie oznacza. wstaw tam readln;