С клавиатуры вводится двузначное число, если в нем цифры одинаковые и оно четное, то вывести число без изменения, иначе вычесть из числа 10.

var a,x,c:integer;

begin

 writeln ('Введите двухзначное число');

readln(a);

x:=a div 10;

c:=a div 10;

if (x=c) and (a mod 2=0) then writeln (a-10) else writeln (a);

end.

Объяснение: