var a:Integer;
begin
Write('Введите трёхзначное число ');
ReadLn(a);
if a mod 10 = a div 100 then Write('Является') else
Write('Не является')
end.
var a:Integer;
begin
Write('Введите трёхзначное число ');
ReadLn(a);
if a mod 10 = a div 100 then Write('Является') else
Write('Не является')
end.