очень надо. Пришлите либо фото либо напишите программу здесь очень надо. Пришлите либо фото либо напишите программу здесь ">

var a:integer;

begin

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

   readln(a);

   if (a >= 100) and (a <= 999) then

       writeln((a div 100) + (a mod 10))

   else writeln('Ошибка! Это не трёхзначное число.');

end.

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

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

var n: integer;beginread(n);Print(n.ToString.First.ToDigit + n.ToString.Last.ToDigit);end.

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