---

Program n1;
Var a, b, S, P: real;
Begin
  Writeln('Введите катеты a и b:');
  Readln(a, b);
  S := a * b / 2;
  P := a + b + sqrt(a*a + b*b);
  Writeln('Площадь = ', S:0:2);
  Writeln('Периметр = ', P:0:2);
End.