program bai1;
uses crt;
var a,b,t,Vtb,dds:real;
begin
write('Nhap chieu rong san ');readln(a);
write('Nhap chieu dai san ');readln(b);
write('Nhap thoi gian chay ');readln(t);
dds:=(a+b)*2;
writeln('Do dai san chay la ',dds);
Vtb:=dds/t;
writeln('Van toc trung binh cua ban do la: ',Vtb:10:2);
readln
end.
Thông tin bạn Ân thì bạn tự thêm vào nhé...