Даны действительные числа x, y, z. Как узнать сколько среди них отрицательных? Паскаль abc

Var
   x,y,z:real;
   k:byte;
Begin
k:=0;
Write('x = ');ReadLn(x);
if x<0 then k:=k+1;
Write('y = ');ReadLn(y);
if y<0 then k:=k+1;
Write('z = ');ReadLn(z);
if z<0 then k:=k+1;
WriteLn('Количество отрицательных,среди введённых: ',k);
End.