begin; integer I; real Y; real array A[0 : 10]; real procedure F(T); value T; real T; F := SQRT(ABS(T)) + 5T
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;