надо решить задачу используя алгоритмическую структуру "цикл" : Найти все трехзначные числа сумма цифр которых равна 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.