Дано трехзначное число. Проверить, является ли число палиндромом, т.е. числом, которое читается одинаково слева направо и справа налево (число единиц может превосходить число сотен). Если не является, то вывести ближайшее следующее число-палиндром.
Что не так?
program uslovie;var m,n,a,c: integer;beginreadln(m);if m div 100=m mod 10 then writeln('Это число-палиндром')elsebegina:=m div 100;c:=m mod 10;n:=m+(a-c);if a>c thenwriteln(n)elsen:=(m+10)-(c-a);writeln(n)end;end.
Я на паре тестах попробывал вроде находит правильно, если найдешь варианты при которых будет выдавать неправильно то напиши в комментариях