Посчитать количество отрицательных чисел среди чисел m,n,p

Var m,n,p,k:integer;
begin
writeln('Введите 3 числа:');
readln(m,n,p);
k:=0;
if m<0 then k:=k+1;
if n<0 then k:=k+1;
if p<0 then k:=k+1;
writeln('k=',k);
end.

Пример:
Введите 3 числа:
12 -7 31 
k=1