Напишите программу на Паскале

Question

Напишите программу на Паскале. 
За А часов по течению реки теплоход проходит тот же путь, что и за В часов против течения. Найдите собственную скорость теплохода, если скорость течения 2 км/час. 
Заранее спасибо.

Настя Малыгина · Accepted Answer

var 
x,a,b:real; 
begin 
readln(a,b); 
{x*a+2*a=x*b-2*b} 
{x(b-a)=2(b+a)} 
x:=2(b+a)/(b-a); 
writeln(x); 
end. 
 
Ну вроде так, не проверял.