Даю 100 баллов очень срочно сделать задачу номер 2 плиз и блок схему

Question

Даю 100 баллов очень срочно сделать задачу номер 2 плиз и блок схему

---

Answer 1

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2(a,b);
  if a>b then Writeln(Sqrt(a*b))
  else
    if b>a then Writeln(a*a+b*b)
    else Writeln('Нет формулы')
end.

---