Как решить такую в паскале? ? дано двузначное число. найти сумму его цифр.

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

Program cymma;
var  a, b, c: real;
begin  writeln('Введите первую цифру числа');  read(a);  writeln('Введите вторую цифру числа');  readln(b);  c := a + b;  writeln('Сумма цифр числа =');  writeln(c);end.