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

Program name;
const:pi=3.14;
var:a,b,c;s;r:integer;
begin
writeln(Длина катета?);
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.

Вроде так

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.