дано число n,получить новое число удалив из него все цифры 3. например из числа 1352 получить 152. помогите пожалуйста!

readln(a);
b:=0;
while a>0 do begin
if a mod 10 <> 3 then b:=b*10+a mod 10;
a:=a div 10;
end;
writeln(b);

Правда просто?