---

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