Программа pascalabc : даны три числа.написать программу,для подсчета количества чисел,равных нулю.

Program zadacha; 
Var a, b, c, n: real;
begin ;
Writeln ('введите значения a, b, c');
Readln (a, b, c); 
n:=0;
if a=0 then n:=n+1;
if b=0 then n:=n+1;
if c=0 then n:=n+1;
Writeln ('чисел равных нулю ', n); 
end.