Помогите дописать программу

[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.

[Карась]

Надо сделать проверку и вставить где надо:

if x < 0 then Begin 
Writeln (' у не определён');
End;

Но в твоём коде уже заданно что делать если x < 0.....

......
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;
........

при х < 0 выполняется :

y := (4 + x) / 21 + 2 * x * x - 6;

[puporev]

Посмотрите сообщение в разделе Паскаль. И вообще лучше на создавать две темы.