Нужно найти счастливое число, счастливым число называется если сумма первых трёх цифр равна сумме последних трёх цифр и эти суммы являются чётными ,проверьте на ошибки program swan_1; var y,z,c,d,p,f: integer; writeln('введите шестизначное число'); readln(y); z: =y div 100000; b: =(y div 10000)mod 10; c: =(y div 1000)mod 10; d: =(y div 100)mod 10; p: =(y div 10)mod 10; f: =y mod 10; j: =z+b+c; u: =d+c+f; if(j=u)and(j mod 2=0)and (u mod 2=0) then writeln('счастливое число') else writeln('несчастливое число') end.