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

Program pr;
var a,b,s1,s2:integer;
begin
writeln('Введите двузначное число');
readln(a);
writeln('Введите трехзначное число');
readln(b);
s1:=a div10+a mod 10;
s2:=b div100+b mod10+(b div10)mod10;
writeln('Разность суммы цифр двузначного и трехзначного чисел равна  ',s1-s2);
end.