{$B-}

 program TestSumy4pot;

 uses CRT; { Turbo Pascal ver 5.5 }

 type str4 = string[4];

 var sss : str4;

     a,b,c,d,err,i,j : integer;

     sukces : boolean;

 function iStr( iii : longint ): Str4;

 var ssss : str4;

 begin

   Str( iii, ssss );

   iStr:= ssss;

 end;



 begin

   writeln(' Szukanie wszystkich liczb 4-ro cyfrowych, dla ktorych');

   writeln(' suma czwartych poteg cyfr tej liczby jest rowna tej liczbie.');

   sukces := false;

   for i:=1111 to 9999 do

     begin

       sss := iStr( i );

       Val( sss[1], a, err );

       Val( sss[2], b, err );

       Val( sss[3], c, err );

       Val( sss[4], d, err );

       j := a*a*a*a + b*b*b*b + c*c*c*c + d*d*d*d;

       if i = j then

         begin

           sukces := true;

           writeln( a,'^4 + ', b,'^4 + ', c,'^4 + ', d,'^4 = ',i );

         end;

     end;

   if NOT sukces then

     writeln(' Nie zanleziono ');

   readln;

 end.