Написать программу вычисления суммы чисел двузначного числа

Question

Написать программу вычисления суммы чисел двузначного числа

Answer 1

Var
a,b,sum : integer;
begin
readln(a);
b:=a div 10;
a:=a mod 10;
sum:=a+b;
writeln(sum);
end.

Answer 2

У меня тоже самое что и того чувока вот