4-ех значное число сумма первю и послю2 цифр

 program cym;
uses crt;
var a, s1, s2: integer;
  begin
 writeln('a='); readln (a);

s2:= a div 1000+(a div 100)mod 10;
s1:=a mod 10+(a div 10)mod 10;
if s1=s2 then writeln (' yes s1=s2')
else writeln(  s1>s2,' no')  ;
 writeln('s1=',s1);
 writeln('s2=',s2);
readkey;
end.