var va, vb, check, distance: integer;
    time1, time2: real;
begin
writeln('Выберите цифру как двигались автомобили');
writeln('1) Навстречу');
writeln('2) Оба в сторону города B');
writeln('3) Оба в сторону города A');
writeln('4) В разные');
read(check);
write('Расстояние между городами: ');
read(distance);
write('Скорость автомобиля города B: ');
read(vb);
write('Скорость автомобиля города A: ');
read(va);
time1 := distance/(va+vb);
time2 := distance/(va-vb);
case check of
  1: write('Встретятся через ', time1:0:1 ,' часа расстояние от А: ', time1 * va:0:0, ' расстояние от B: ', time1 * vb:0:0 );
  2: if vb > va then write('Невстретятся') else write('Встретятся через ', time2:0:1 ,' часа расстояние от А: ', time2 * va:0:0, ' расстояние от B: ', time2 * vb:0:0);
  3: if va > vb then write('Невстретятся') else write('Встретятся через ', time2:0:1 ,' часа расстояние от А: ', time2 * va:0:0, ' расстояние от B: ', time2 * vb:0:0);
  4: write('Невстретятся')
end
end.