Chấm 7đ nha
Chương trình tính và đưa ra màn hình vận tốc v:

Program tinh_van_toc;

Uses crt,

Constt g = 9.8;

Var v,h: real

Begin

Write('Nhap vao do cao h= ');

readln(h);

V:=sqrt(2*g*h);

write ('Van toc khi cham dat la V = ' , V: 10 : 2 ' , in/ s' )

readln

End.

Khi chạy chương trình, nếu h = 0.45 m thì vận tốc khi chạm đất V = 2.97m/s

nếu h = 1 m thì vận tốc khi chạm đất V = 4.4m/s

nếu h = 1.5 m thì vận tốc khi chạm đất V= 5.42m/s

nếu h = 2 m thì vận tốc khi chạm đất V =  6.26m/s

nếu h = 3 m thì vận tốc khi chạm đất V =  7.67m/s;