Дано двух значное число найти сумму цифр

Question

Дано двух значное число найти сумму цифр

Answer 1

Program z1;
Var n,a,b:Real;
Begin
Read(n);
a:=n mod 10;
b:=n div 10;
n:=a+b;
Writeln (n);
end.