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

Program prim;
var n,s1,s2:integer;
begin
write('n='); readln(n);
s1:=n div 1000 + n div 100 mod 10;
s2:=n mod 100 div 10+n mod 10;
if s1=s2 then writeln(s1,'=',s2) else writeln(s1,'<>',s2)
end.
Пример работы:
n=1345
4<>9