Как следует поступать если вам продали бракованный товар?

Program z1;
var a:integer;
begin
writeln ('vvedite chislo');
readln(a);
if a mod 9=0 then
writeln ('da') else
writeln ('net');
end.