var
k :integer;
begin
repeat
writeln('Введите число');
readln(k);
until (k>=100) and (k<=999);
if (k mod 10) = (k div 100) then
writeln('Палиндром')
else
writeln('Не палиндром');
end.
var
k :integer;
begin
repeat
writeln('Введите число');
readln(k);
until (k>=100) and (k<=999);
if (k mod 10) = (k div 100) then
writeln('Палиндром')
else
writeln('Не палиндром');
end.