Написать программу чтоб работала в Pascal запрашивает с клавиатуры три произвольных числа и выводит на экран сообщение о том, сколь-ко из них отрицательных, положительных и нулевых.

PascalABC
var x,y,z:real;
k,m,n:integer;
begin
k:=0;
m:=0;
n:=0;
writeln(Введите первое  число);
readln(x);
writeln(Введите второе  число);
readln(y);
writeln(Введите третье число);
readln(z);
if x>0 then k:=k+1
else if x=0 then m:=m+1
else n:=n+1;
if y>0 then k:=k+1
else if y=0 then m:=m+1
else n:=n+1;
if z>0 then k:=k+1
else if z=0 then m:=m+1
else n:=n+1;
writeln(Количеcтво положительных чисел : ,k);
writeln(Количеcтво нулевых чисел : ,m);
writeln(Количеcтво отрицательных чисел : ,n);
end.