:
program Chernovik;
var i,k:integer;
begin
k:=0;
for i:=10 to 99 do
if i div 10 > i mod 10 then k:=k+1;
writeln(k);
end.
div - целочисленное деление
mod - остаток от целочисленного деления
i div 10 - первая цифра числа
i mod 10 - вторая цифра числа
Перебираем в цикле числа и сравниваем первую и вторую цифры