1. Xác định bài toán
     Input: Thời gian đoàn tàu chuyển động, vận tốc trung bình của đoàn tàu

   Output: Quãng đường tàu đi được

2. Thuật toán

   1. Nhập: h

       Nhập: v

   2. Tính: s ←← v*h

   3. Xuất: s

3. Viết chương trình

Uses crt;
Var 
    s,v,h: LongInt;
Begin
    clrscr;
    write('Nhap thoi gian chuyen dong (h): '); readln(h);
    write('Nhap van toc (km/h): '); readln(v);
    s:=v*h;
    writeln('Doan tau da di duoc quang duong dai ',s,'km');
    readln;
End.
Bạn xem rồi chấm điểm giúp mình nha.