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