function GetTime(v1,v2,S: real): real;
begin
GetTime := S/(v1+v2);
end;
begin
writeLn('t = ',GetTime(40,60,120):10:2);
end;
function GetTime(v1,v2,S: real): real;
begin
GetTime := S/(v1+v2);
end;
begin
writeLn('t = ',GetTime(40,60,120):10:2);
end;