Nu pot sa fac Pascal dar pot sa te ajut cu idea
Iti trebuie ori 6 variabile sau un vector cu 6 variabile
Prima cifra(stanga la dreapta) = numarul tau/100000
A doua = numarul tau/10000 % 10 (modulo 10)
A treia = numar/1000 %10
A patra = numar/100 %10
A cincea = numar/10%10
A sasea = numar%10
Calculezi in 2 variabile cele 2 sume
s1=cifra 1+cifra 2+cifra 3
s2=cifra 4+cifra 5+cifra 6
Daca s1==s2 atunci este fericit
Daca s1!=s2 atunci nu este fericit
% = restul la impartirea cu ceva (105%10=5)
== = egal
!= = diferit
Asa e in c++ nu stiu cum e in pascal dar ideea se pastreaza