Необходимо найти второй катет и площадь вписанного круга - Pascal ABC

Формулировка задачи:

Дана гипотенуза и один из катетов прямоугольного треугольника. Необходимо найти второй катет и площадь вписанного круга. Необходимые переменные: а - катет прямоугольного треугольника b - неизвестный катет прямоугольного треугольника c - гипотенуза прямоугольного треугольника S - площадь вписанного круга

Решение задачи: «Необходимо найти второй катет и площадь вписанного круга»

Листинг программы

var a,b,c,s,r:real;
BEGIN
Readln (a);
Readln (c);
b := sqrt (sqr(c)-sqr(a));
Writeln ('b = ',b);
r := (a*b)/(a+b+c);
s := pi*sqr(r);
Writeln (s);
END.

Объяснение кода листинга программы

Создается переменная a и присваивается ей значение, которое считывается из ввода.
Создается переменная b и присваивается ей значение, которое вычисляется по формуле sqrt(sqr(c)-sqr(a)). Здесь c и a - это переменные, которые были считанны из ввода ранее.
Выводится значение переменной b.
Создается переменная r и присваивается ей значение, которое вычисляется по формуле (a*b)/(a+b+c), где a, b и c - это переменные, которые были считанны из ввода ранее.
Вычисляется значение переменной s по формуле s = pi*sqr(r), где r - это переменная, которая была вычислена ранее.
Выводится значение переменной s.