Calculați suma tuturor elementelor nenule introduse, utilizînd instrucțiunea while

Program p1;
var n,s: real;
Begin
s:=0;
write('Introdu numarul:');
readln(n);
while n<>0 do
begin
s:=s+n;
write('Introdu numarul:');
readln(n);
end;
writeln('Suma elementelor nenule=', s:0:2);
readln;
End.