Розв’язок задачі з Абрамова №15

Всі умови | Умова: Дано гіпотенузу і катет прямокутного трикутника. Знайти другий катет і радіус вписаного кола. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №15)

program p15;
var
  a, b, c, r : real;
begin
  write('a = '); readln(a);
  write('c = '); readln(c);

  b := sqrt(c * c - a * a);
  r := (a + b - c) / 2;

  writeln(b:10:2);
  writeln(r:10:2);
  readln;
end.