Программа на паскале! найти количество пар двузначных чисел сумма которых не превысит 100

Var
  a, b, k: integer;
Begin
  k := 0;
  For a:= 10 to 99 do
    For b:= 10 to 99 do
      if (a+b <= 100) then
        k := k+1;
  WriteLn('k = ',k)
End.