uses crt;

var S1, S2, v1, v2, t: integer;

begin

  clrscr;

  v1:=50;

  v2:=30;

  write('Nhap t = '); readln(t);

  S1:=v1*t;

  S2:=v2*t;

  writeln('Khoang cach cua xe o to la: ', S1, '(km)');

  writeln('Khoang cach cua xe may la: ', S2, '(km)');

  readln

end.

uses crt;

var t: real;

const v1=50; {van toc xe o to}

         v2=30; {van toc xe may}

begin

        clrscr;

        write('Nhap t= '), readln(t);

        writeln('Quang duong xe o to di duoc la: ',v1*t:8:3);

        writeln('Quang duong xe may di duoc la: ',v2*t:8:3);

        readln;

end.