Подсчитать произведение чисел, значения которых не равняются нулю, для последовательности из трех чисел, которые произвольно задаются — Pascal(Паскаль)

uses crt;
const n=3;
var a,p:real;
b:boolean
begin
clrscr;
p:=1;
b:=true;
for i:=1 to n do begin
readln(a);
if a<>0 then begin
b:=false;
p:=p*a;
end;
end;
if b then write('p=0') else write('p=',p:0:2);
readln
end.