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

Program testabc; var x,y,z:real; i:integer; begin i:=0; writeln('Введите 3 числа: '); readln(x,y,z); if x<0 then i:=i+1; if y<0 then i:=i+1; if z<0 then i:=i+1; Writeln(i,' отрицательных'); end.