begin 
   integer i;
   real y;
   real array a[0:10];
   real procedure f(t); value t; real t; f := sqrt(abs(t))+5*t^3;

   for i := 0 step 1 until 10 do read(a[i]);
   for i := 10 step -1 until 0 do begin 
        y := f(a[i]);
        if y > 400 then 
           write(i, "TOO LARGE")
        else 
           write(i,y);
   end 
end