Даны 2 двузначных числа, если 1 цифра 1 числа больше 1 цифры 2 числа и 2 ц3ифра 1 числа...

Question

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

Answer 1

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