Дано целое положительное четырехзначное число. Напишите программу, позволяющую определить сумму двух первых цифр и разность двух последних цифр

program fatzz051;var a:integer;beginreadln(a);writeln('Sum= ',a div 1000+a div 100 mod 10);writeln('Razn=',a div 10 mod 10-a mod 10);end.