Найти сумму цифр двухзначного числа
program sum;
var a, s:integer;
begin
write('введите двузначное число ');
readln(a);
if (a<10) or (a>99) then writeln ('неправильное число')
else writeln('сумма чисел =', a mod 10+a div 10);
end.