Как смог, расписал. Смотреть в приложении.
Var a,b,c,s,x: integer;
begin
write('x = '); readln(x);
<span> а:=х div 100;
</span><span> b:=x mod 100 div 10;
</span><span> c:=x mod 10;
</span><span> s:=a+b+c;
</span> writeln(s);
end.
При вводе x = 248 будет напечатано 14, при вводе x = 789 будет напечатано 24
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var f:=ArrRandom(9,-50,50); f.Println;
var k:=f.Select(t->t*t).ToArray; k.Println
end.
<u>Пример</u>
39 0 28 31 -35 -2 -11 -48 -32
1521 0 784 961 1225 4 121 2304 1024
D и A т,к они расположены на противоположных вершинах квадрата и кратчайшее расстояние 13 (9+4)