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

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.