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

// 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.