Помогите написать програму в Паскале чтоб найти суму десятков двух чисел

var a,b:integer;
begin
write('A B: '); readln(a,b);
writeln(a div 10 mod 10+b div 10 mod 10); readln
end.