Даны 2 двузначных числа, если 1 цифра 1 числа больше 1 цифры 2 числа и 2 ц3ифра 1 числа меньше 2 цифры 2 числа, то вывсти на экран «да» иначе «нет»

Var a,b:integer; 
begin 
writeln('Введите два числа через пробел'); 
read(a,b); 
if (a div 10>b div 10) and (a mod 10<b mod 10) then writeln('Да') 
else writeln('Нет'); 
end.