Найти все целые трёхзначные числа сумма цифр которых равна 6.Pascal ABC.Срочно

Боже,огромное спасибо,вы спасли мою четвертную!

var a,b,c,i:integer;beginfor i:=100 to 999 dobegina:= i div 100;b:= i mod 100 div 10;c:= i mod 10;if a+b+c = 6 then writeln(i)end;readlnend.

Var  a,b,c: byte;Begin  for a := 1 to 9 do    for b := 0 to 9 do      for c := 0 to 9 do        if (a+b+c = 6) then          WriteLn(a,b,c);End.Вывод:105114123132141150204213222231240303312321330402411420501510600