Найти сумму двухзначных чисел в которых цифра единиц больше десятков. (паскаль)

program zz1;

var a, b, n, i:integer; / / задаем переменные целого типа

begin

for i:=10 to 99 do / / организуем цикл, в котором переберем все двузначные числа

begin

a:=i div 10; / / получаем первую цифру двузначного числа

b:=i mod 10; / / получаем вторую цифру двузначного числа

if b > a then n:=n + i; / / проверяем, если цифра единиц больше цифры десятков, то добавляем двузначное число в сумму

end;

write (' сумма двузначных чисел, в которых цифра единиц больше десятков = ', n); / / выводим ответ на экран

end.