Вывести ** экран все двузначные числа перевертыши. Через паскаль

Question

Вывести на экран все двузначные числа перевертыши. Через паскаль

Answer 1

//PascalABC.NET

begin

 for var i := 10 to 99 do

   for var j := 10 to 99 do

     if (i div 10 = j mod 10) and (i mod 10 = j div 10) then

       writeln(i, ' ', j);

end.