Даны действительные числа 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.