uses crt;
var v, t, s, A: integer;
begin
clrscr;
write ('nhap van toc <m/s> : ');
readln (v);
write ('nhap quang duong <m> : ');
readln (s);
t:=0;
writeln ('v la: ',v);
writeln ('s la: ',s);
while t<s/v do
begin
t:=t+1;
end;
write ('thoi gian la <s> : ',t);
write (' s');
readln;
end.