Ответ:

• var s,n: integer;
• begin
• read(n);
• s := n div 100 + n mod 10;
• write(s);
• end.

или более гибкий вариант, складывает первую и последнюю цифру числа независимо от того, трёхзначное число или нет:

• var n: integer;
• begin
• read(n);
• Print(n.ToString.First.ToDigit + n.ToString.Last.ToDigit);
• end.

Пример работ: