Пожалуйста помогите составить алгоритм с полным ветвлением....

Var s, u1, u2, t: real;
begin
     readln(s, u1, u2, t);
     if (s = (u1 + u2) * t) then writeln(Yes)
        else writeln(No);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.