Корень из отрицательного числа

[Baizer]

Здравсвуйте, есть задача, вот такая:

program prog;
var
x,z,y:real;
begin
x:=-3;
y:=1;
Z:=x*y/3;  
if z+y>0
then
z:=-z-x
else
z:=sqrt(z)-y;
writeln('z=',z:0:3);
end.

И в ней нужно найти квадратный корень из отрицательного числа, не могу сообразить как это организовать. Если можно, поподробнее.

[Zer0]

Корень из отрицательного числа можно взять только в комплексном множестве чисел, Вам такое надо?
Может напишете ЧТО ИМЕННО должна решать задача?