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

var a, b: real;beginread(a);while a <=9999 do beginread(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 beginwriteln(b);end;end.