vari,a,b,m:integer;beginread(a);
read(b);
m=(a*b)/(a+b)
write('Они встретятся через ', m, ' минут');end.
var
i,a,b,m:integer;
begin
read(a);
read(b);
m=(a*b)/(a+b)
write('Они встретятся через ', m, ' минут');
end.