Даны два целых двузначных числа. Верное ли, что все цифры первого числа больше...

Question

Даны два целых двузначных числа. Верное ли, что все цифры первого числа больше соответствующих цифр второго числа?
Написать программу для Pascal

Answer 1

//Pascal ABC.NET 3.2 сборка 1318

Var
  a,b:integer;
begin
  readln(a,b);
  if (a mod 10>b mod 10) and (a div 10>b div 10) then writeln('Да') else writeln('Нет');
end.

Пример ввода:
23
12
Пример вывода:
Да