[AND_REY]

Программа считает к2 но вряд ли коэффициент может быть больше 1.
Может что то с формулами не то.

Код:

Const
 //h = 500;
// m = 65;
 g = 9.8;
 dt = 0.1;
Var
 ti, xi, ai, ui,k2,k1: Real;
   m,h:integer;
begin
write ('vvedite m=');
 readln (m);
 write('vvedite h=');
 readln (h);
     ti:= 0; xi:= 0; ai:= g; ui:= 0; k1:= 1; k2:= 1;
 Repeat
  ti:= ti + dt;
  xi:= xi + ui*ti + (ai*ti*ti)/2;
  ui:= ui + ai*dt;
  ai:=(m*g - k1*ui - k2*ui*ui)/2; //(1)
 Until (xi >= h) and (ui <= 10); // Добавил ограничение по скорости <10
 k2:= (m*g - k1*ui - 2*ai)/ui*ui; // k2 c формулы (1)
  writeln('k2 =',k2);
   readln;
end.