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

var a,x,c,b:integer;

begin

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

 readln(a);

 x:=a div 100;

 c:=a div 10 mod 10;

 b:=a mod 10;

 if (x=c) and (a mod 2<>0) and (c=b) then writeln(x+b) else writeln(a);

end.