Вопрос Что не так? Это программа для вычисления количества чисел в интервале, сумма цифр которых равна введ

[жека]

program interval;
var a,b,s,n,k,r:integer;
begin
readln;
b:=0;
r:=0;
while((a>=100)and(a<=999)) do
begin
while(a<>0) do
begin
k:=(a mod 10);
a:=(a div 10);
b:=b+k;
if(b=k)
then
writeln(r);
r:=r+1;
end;
end;
end.

 

[антон444]

Слабо помню Pascal, но у вас в цикл while программа вроде не заходит, т. к a=0 изначально.