Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами a ´ b и c ´ d - VB

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

Вот собственно задача: -Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами a ´ b и c ´ d? Помогите с алгоритмом. Не могу понять. Нашел задачи на Паскале и на С++, но не могу интерпретировать в VB6. Если вам лень писать код, то буду благодарен хотя бы с алгоритмом решения, а код как нить сам попытаюсь написать.

Решение задачи: «Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами a ´ b и c ´ d»

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

                            Private Sub Command1_Click()
R = Val(Text1.Text)
    a = Val(Text2.Text)
    b = Val(Text3.Text)
     Picture1.Cls
d = Sqr(a ^ 2 + b ^ 2)
z = 2 * R
If z >= d Then
Picture1.Print "Вырезать можно"
Else
Picture1.Print "Вырезать нельзя"
End If
End SubEnd Sub
                        