Домашнее задание на 7.05.15

Program One;
var a,f:integer ;
n:longint;
begin
Writeln('vvedite nomer');
Readln(n);
a:=(n div 100000)+(n div 10000 mod 10)+(n div 1000 mod 10);
f:=(n div 100 mod 10)+(n div 10 mod)+(n mod 10);
if a=f then writeln('schastlivyi') else
writeln('ne schastlivyi');
readln;
end.