По веденному номеру билета определить счастливый ли он, все это нужно на…

program schaslivyi; uses crt; var a,b,c,d,e,f,g,x,y: real; beginwrite ('vvedite nomer bileta: '); readln (g); f: =g mod 10; e: =g mod 100 div 10; d: =g mod 1000 div 100; c: =g mod 10000 div 1000; b: =g div 10000 mod 10; a: =g div 100000; x: =a+b+c; y: =d+e+f; if x=y then write ('schactlivyi') else write ('ne schactlivyi'); readln; end. Если есть возможность проверить, то лучше это сделать, так как я могу ошибаться в количестве нулей при отделении цифр.