program vt;
uses crt;
var v1,v2:integer;
    s1,s2,t,kc:real;
begin
     clrscr;
     write('nhap vao van toc xe thu nhat: ','v1=');read(v1);
     write('nhap vao van toc xe thu hai: ','v2=');read(v2);
     write('nhap vao thoi gian hai xe di sau khi xuat phat: ','t=');read(t);<br />     s1:=t*v1;{s1 la quang duong xe thu nhat di}<br />     s2:=t*v2;{s2 la quang duong xe thu hai di}<br />     kc:=abs(s1-s2);{kc la khoang cach 2 xe; abs() la ham lay gia tri tuyet doi)}<br />     write('khoang cach cua 2 xe sau ',t:3:2,' la: ',kc:3:2,' km');
     readln;