Надо решить задачу используя алгоритмическую структуру "цикл" : Найти все трехзначные числа сумма цифр которых равна 8.

var i,t,s:integer; Begin  For i:=100 to 999 do           Begin                 t:=i;s:=0;                        While t>0 do            Begin                 s:=s+t mod 10;                  t:=t div 10;                 End;          if s=8 then write(i,' ');           End; readln; end.