Сделайте пожалуйста данную задачу для программы Паскаль ABC:
Дано гипотенузу и катет прямоугольного треугольника. Найтдите второй катет и площадь вписанного круга.

program name;const:pi=3.14;var:a,b,c;s;r:integer;beginwriteln('Длина катета?');readln(a);writeln('Длина гипотенузы?');readln(c);b:=sqrt(sqr(c)-sqr(a));r:=(a+b-c)/2;s:=pi*(sqr(r));Writeln('Второй катет',b);Writeln('Радиус вписанного круга',r);Writeln('Площадь вписанного круга',s);end.Вроде так