Составьте программу ** языке паскаль

Question

Составьте программу на языке паскаль

---

Answer 1

Program S1;var a, b: real;beginreadln(a, b);writeln('гипотенуза - ', sqrt(a*a+b*b), '; Площадь - ', a*b/2);end.