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

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

vark: array[1..100] of integer;a,N,i,c:integer;beginc:=0;i:=1;a:=999;write('Введите N: ');readln(N);writeln('Введите a: ');while a<>0 do beginreadln(a);if (a>=100) and (a<=999) then beginif ((a div 100)+((a div 10) mod 10)+(a mod 10))=N then begink[i]:=a;i:=i+1;c:=c+1;end;end;end;if c>0 then beginwriteln('Числа, сумма цифр которых равна ',N,':');for i:= 1 to c dowriteln(k[i]);end;end.