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

На 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.