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

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.