От чего зависит кинетическая энергия движущегося тела?

Program A;
var n,i,a,p:integer;
begin
Randomize;
n:=50;
for i:=1 to n do
begin
a:=random(50)+150;
if a>=170 then
inc(p);
end;
writeln('Шанс имеют ',p,' претендентов.');
end.