составьте программу вычисления количества трёхзначных чисел-палиндромов(чисел,которые читаются одинаково слева направо и справа налево

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!beginvar ans:integer;for var i:= 101 to 999 doif (i div 100) = (i mod 10)theninc(ans);Writeln(ans);end.