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

program w;var a,b,c,s:real;begin  writeln('Введите a,b'); readln(a,b); c:=sqrt(sqr(a)+sqr(b)); s:=(a*b)/2;  writeln('Гипотенуза:');  writeln(c:4:2); writeln('Площадь:'); writeln(s:4:2);end.