Пожалуйста посчитайте пожалуйста с номером 9

Program z1;
Var
itog,v,w,s:real;
begin
writeln('Введите скорость пассажирского поезда');
readln(v);
writeln('Введите скорость скоростного поезда "Сапсан"');
readln(w);
writeln('Введите расстояние от Москвы до Ст. Петербурга');
readln(s);
itog:=w*s/(v+w);
writeln('"Сапсан" проехал до встречи с пассажирским поездом: ',itog);
end.