Вычислить радиус окружности

[Ujas]

Хорда окружности равна А. Через один конец хорды проведена касательная к окружности, а через другой - секущая, которая параллельна касательной. Составить программу, которая бы вычисляла радиус окружности, если внутренний отрезок секущей равен B.

Очень прошу помощи.

[TinMan]

  r:= a*a/Sqrt(a*a+b*b/4)/2;