Numeri felici

program numeri_felici;
uses crt;
var x,y,num,somma:integer;
   ris:boolean;
begin
    readln(x);
    num:=x;
    somma:=0;
    ris:=false;
    while (x>1) and not(ris) do
    begin
         while num>0 do
         begin
              y:=num mod 10;
              somma:=somma+sqr(y);
              num:=num div 10;
         end;
         if somma=1 then
            ris:=true;
         num:=somma;
         somma:=0;
         if num=4 then
            ris:=true;
    end;
    if num=1 then
       writeln(x,' è un numero felice')
    else
       writeln(x,' non è un numero felice');
    readln
end.