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