Дано четырехзначное число А. Составить программу, которая бы вычисляла две суммы: сумму первой и четвертой цифры и сумму второй и третьей цифры — Pascal(Паскаль)

Uses
 CRT;
Var
n,a,b,c,d,sum23,sum14:integer;
begin
ClrScr;
repeat
 readln(n);
until (n>=1000) and (n<10000);
a:=n div 1000;
b:=(n div 100) mod 10;
c:=(n div 10) mod 10;
d:=n mod 10;
writeln(a,' ',b,' ',c,' ',d);
sum14:=a+d;
sum23:=b+c;
writeln('1+4:=',sum14,'; 2+3:=',sum23);
readkey
end.