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

А k это что?

Так же, как integer и longint

Var   x,y,z:real;   k:byte;Begink:=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.