математика. сколько существует натуральных четерехзначных у которых сумма первых двух цифр равна

Код Pascal1

Var
i,k: Longint;
BEGIN
For i:=1000 to 9999 do
If (i div 1000)+((i div 100) mod 10)=(i mod 10)+((i mod 100) div 10) Then
k:=k+1;
Writeln('Существует ',k ,' чисел');
END.