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;