Необходима помощь в дописании программы

[ALIZE]

y= 2.5*x+4.1*e^x, если 0<=х<=3, или 4*x/21+2*x*x-6, если х>3
при x=(8.6*z)/(z*z+4.1), для zn=1 и zk=6 с шагом 1.
что нужно дописать в программу, чтобы при х<0 выводилось сообщение "у не определён"
Программа:

var z,y,x,zn,zk,dz:real;
begin
write('zn=');readln(zn);
write('zk=');readln(zk);
write('dz=');readln(dz);
z:=zn;
while z<=zk do
begin
x:=(8.6*z)/(z*z+4.1);
if x>=0 then
begin if x<=3 then y:=2.5*x+4.1*exp(x)
else y:=(4+x)/21+2*x*x-6;
end;
writeln('x=',x:5:2,'y=',y:5:2,'z=',z:5:2);
z:=z+dz;
end;
end.

[puporev]

Если я не ошибаюсь, у вас х не может быть <0. Кстати x>3 то же не может быть. В условии все правильно?