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

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.