Дано двузначное число, определить в нём сумму цифр

program summ;var x,s:integer;beginread(x);s:=x div 10+x mod 10;write(s);end.Например, вводим число 49, в ответе получаем s=13.