Надо решить то что на фото и то что я сейчас напишу в скобках , и это всё надо написать в...

Если сумма цифр это всё, то вот. работает не только для 4-значных чисел.
var a, b, sum : integer;
begin
readln(a);
while a > 0 do
begin
b := a mod 10;
sum := sum + b;
a := a div 10;
end;
writeln(sum);
end.

Надо решить то что ** фото и то что я сейчас напишу в скобках , и это всё надо написать в...