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

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