program HelloWorld;
var S: integer;
begin
writeln('Введите число двухзначное:');
readln(S);
if(s mod 10 = s div 10) then writeln('Числа равны!')
else writeln('УВЫ! Числа не равны!')
end.
