Program p2;
var a:byte;
begin
Write('Введите А, А = ');
Readln(a);
If a mod 10 = a div 10 then 
    writeln('Одинаковы') else
        writeln('Не одинаковы');
end.