Напишите программу: ввести четырехзначное число, найти сумму крайних и сумму средних цифр

На Pascal:

program sum4; uses crt; var a:integer;

begin writeln ('Введите 4-х значное число'); readln (a); writeln ('Сумма крайних цифр = ', (a mod 10) + (a div 1000)); writeln ('Сумма средних цифр = ', ((a div 100) mod 10) + (a div 10) mod 10); end.