Найти количество всех целых трехзначных чисел и вывести их на экран сумма цифр которых равна заданному числу d !! паскаль через цикл пока по схеме

var d,a,a1,a2,a3,k: integer;

begin

readln(d);

a:=100; k:=0;

while alt;=999 do

begin

a1:=a mod 10;

a2:=(a div 10) mod 10;

a3:=a div 100;

if a1+a2+a3 = d then

 begin

 write(a, );

 k:=k+1;

 end;

a:=a+1;

end;

if k=0

then writeln(Нет чисел)

else writeln(Количество чисел ,k);

end.

Пример:

25

799 889 898 979 988 997 Количество чисел 6