не знаю синтаксис паскаля, но думаю сможешь перевезти:
n,a as integer
a:=(n mod 10) - (n div 10);
if a<0 then
a:=a*-1;
write(a);
end.
1. компьютер (ЭВМ - электронно вычислительная машина)
2. робот
3.телефон
4. ноутбук
S:=0
For i:=1 to 10
S:=s+2*i
i:=1
S:=o+2*1=2
i:=2
S:=2+2*2=6
i=3
S=6+2*3=12
i=4
S=12+2*4=20
i=5
S=40+2*5=50
i=6
S=50+2*6=62
i=7
S=63+2*7=77
i=8
S=77+2*8=93
i=9
S=93+2*9=111
i=10
S=111+2*10=131
Ответ=131