Помогите пожалуйстапаскаль

Question

Помогите пожалуйстапаскаль

---

Answer 1

1.) read(a, b);

   writeln(a * b);

   writeln(2*a + 2*b);

2) read(a, b);

    writeln((a * b) / 2);

   writeln(a + b + sqrt(a*a + b*b));