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

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.