problem z programem matematycznym

0

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

0

We wzorze na F stała G to stała grawitacji =6,6710(-11) [Nm</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;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0