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

Program n1;

var a, d1, d2, d3, d4: integer;

begin

write ('введите 4-х значное число: ') ;

readln (a) ;

d1:=a div 1000;

d4: = a mod 10;

d3:=round (((a mod 100) - d4) / 10) ;

d2:=round ((a mod 1000 - (a mod 100) - d4) / 100) ;

if (d1+d4=d2+d3) then writeln ('yes') else writeln ('no') ;

end.