Паскаль абс найти количество 3-х значных чисел, сумма цифр которых=15

Program gt;
var a,b,c,k:integer;
begin
k:=0;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if(+b+c=15)then k:=k+1;
writeln(k);
end.