uses crt;
var a,b:real;
begin
WriteLn(#10,#10);
write(#10,'введите время, за которое пароход проплыл дистанцию против течения: ');
readln(b);
write(#10,'введите время, за которое пароход проплыл дистанцию по течению: ');
readln(a);
if (a=0) or (b=0) then WriteLn('Чой-то пароход больно быстро ехал, фигня короче, даже считать не буду.')

else if a=b then writeln(#10,#10,'Скорость течения равна нулю, плот никогда не достигнет точки назначения.')
else begin
           if (a<0) or (b<0) then WriteLn('Вы ввели отрицательные значения времени, но мне пофиг, я все равно посчитаю.')
           else if a>b then begin
                        writeLn(#10,'У Вас получается, что по течению пароход плыл медленнее, чем против.');
                        writeLn('Ну что ж, все равно посчитаем. Просто скорость течения будет отрицательной.');
                       end;
           
           writeln(#10,'Итак, плот проплывет это расстояние за ',a*(a+b)/(b-a)+a,' дней.');
           writeln('Если округлить до целого, это будет ',round(a*(a+b)/(b-a)+a),' дней.');

     end;

     readkey;
end.