Программы с использованием условного оператора и оператора выбора. Задачи по Delphi. Не могу сделать 4 программу

[Bovi4]

1. Пользователь вводит 2 числа: х и у. Ваша программа должна определять, в какой координатной четверти находится точка (х, у).
2. С клавиатуры вводится трехзначное число. Проверить, равна сумма его цифр значению 9.
3. Создать программу для определения, пройдет шар радиуса r через ромбовидный отверстие с размерами диагоналей ромба p и q.
4. Вычислить значение z:

Исходные данные: t=5.1.

Не могу сделать 4-ую программу.

1.

var x,y:integer;
begin
x:=StrToInt(Edt1.Text);
y:=StrToInt(Edt2.Text);

if (x>0) and (y>0) then
lbl1.Caption:='I';
if (x<0) and (y<0) then
lbl1.Caption:='III';
if (x>0) and (y<0) then
 lbl1.Caption:='II';
if (x<0) and (y>0) then
lbl1.Caption:='IV';
if (x=0) and (y=0) then 
lbl1.Caption:='Начало координата';

2.

var  a,b,c,n,s:integer;
begin
n:=StrtoInt(Edt1.Text);
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
s:=a+b+c;
if (s>8) and (s<10) then
l1.Caption:='Сумма ровна значению 9'
else
l1.Caption:='Сумма не ровна значению 9';
Edt2.Text:=InttoStr(s);

3.

var a,p,r,q:real;
begin
 r:=StrtoInt(Edt1.Text);
 p:=StrtoInt(Edt2.Text);
 q:=StrtoInt(Edt3.Text);
a:=((p/2)*(q/2)/(sqrt(sqr(p/2)+sqr(q/2))));
if a>=r then
Edt4.Text:='Пуля пройдет'
else
Edt4.Text:='Пуля не пройдет';