Дана последовательность натуральных 3-х значных чисел, за которой следует 0. Составить программу поиска в данной последовательности элемента, сумма цифр которого равна N

Делать программу через цикл While

Var

k: array[1 ... 100] of integer;

a, N, i, c:integer;

begin

c:=0;

i:=1;

a:=999;

write ('Введите N: ') ;

readln (N) ;

writeln ('Введите a: ') ;

while a0 do beginr

eadln (a) ;

if (a>=100) and (a<=999) then begin

if ((a div 100) + ((a div 10) mod 10) + (a mod 10)) = N then begin

k[i]:=a;

i:=i+1;

c:=c+1;

end;

end;

end;

if c>0 then begin

writeln ('Числа, сумма цифр которых равна ', N,':') ;

for i: = 1 to c do

writeln (k[i]) ;

end;

end.