Помогите!!!!!!!!!!! Pascal

[Quposle]

Помогите написать программу ТЕМА ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ РАЗВЕТВЛЯЮЩЕЙСЯ СТРУКТУРЫ
Пример под номером 3

[Stilet]

Судя по крику попыток не ожидается и вообще "я блондинко ми-ми-ми"
Что ж. Бывает.

var x,y,z1,z2,a,b:double;
begin
 a:=0; b:=0;
 if (a<0)and(b>0) then z2:=a*b else if (a<0)and(b<0) then z2:=1;
 z1:=sqr(sin(a*b))/a*a;
 x:=tan(z1)/z2;
 y:=x*x+b-sqr(b*b)+atan(exp(x));
 write('y=');
 readln;
end.