Помогите сделать самостоятельную работу​

Question

Помогите сделать самостоятельную работу​

---

Answer 1

Ответ:

var a,b,c,s:real;

begin

 writeln('Введите первый катет');

 readln(a);

 writeln('Введите второй катет');

 readln(b);

 c:=sqrt((a*a)+(b*b));

 s:=0.5*a*b;

 writeln('Гипотенуза');

 writeln(c:2:1);

 writeln('Площадь');

 writeln(s);

end.