Составьте программу, которая определяет, является ли введеное с клавиатуры целое...

Question

Составьте программу, которая определяет, является ли введеное с клавиатуры целое трехзначное число палиндромом, т. е. читается одинаково слево направо и справа налево

Answer 1

(по условию x- трехзначное)
var x:integer;
begin
readln(x);
if (x mod 10)=(x div 100) then writeln(x, '- палиндром')
else writeln(x, '-не палиндром')
end.