Помогите пожалуйста!!!
Написать программу нахождения площади и гипотенузы прямоугольного треугольника по двум катетам.

var a,b,c,s : real;beginwriteln('Vvedite kateti');read(a,b);c:= sqrt(sqr(a)+sqr(b));s:= (a+b)/2;writeln('gipotenyza=',c,' S=',s);end.