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

var a:integer;

begin

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

   readln(a);

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

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

   else writeln('Ошибка! Это не трёхзначное число очень надо. Пришлите либо фото либо напишите программу здесь ">

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

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

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

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.