Вивести в стовпчиним всі чотиризначні числа сума цифр якого дорівнює чисалу яке введене з клаві!

Var a, b: real;
begin
read(a);
while a <=9999 do begin
read(b);
if (b div 1000 <> 0) and (b div 1000 + b div 100 mod 100 + b div 10 mod 10 + b mod 10 = a) then begin
writeln(b);
end;
end.