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

Question

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

Answer 1

var
x,s:integer;

begin
readln(x);
s:=0;
s:=x div 10+x mod 10;
writeln(s);
end.

Answer 2

Program summ;
var x,s:integer;
begin
read(x);
s:=x div 10+x mod 10;
write(s);
end.

Например, вводим число 32, в ответе получаем s=5.