Написать алгоритм нахождения площади и периметра прямоугольного треугольника ABC если известен катет и гипотенуза АС ,BC

var ab,ac,bc,p,s : real;beginwrite('AC = ');readln(ac);write('BC = ');readln(bc);ab:=sqrt(bc*bc-ac*ac);p:=ab+ac+bc;s:=ab*ac/2;writeln('P = ',p,'  S = ',s)end.Пример:AC = 3BC = 5P = 12  S = 6