Выдайте на экран все трехзначные значение чисел сумма цифр которых равна 13

var

 Sum, a, b, c: integer;

begin

 for a := 1 to 9 do

   for b := 0 to 9 do

     for c := 0 to 9 do

     begin

       Sum := a + b + c;

       if (13 = Sum) then

         WriteLn(a,b,c);

     end;

end.