begin;integerI;realY;realarrayA[0:10];realprocedureF(T);valueT;realT;F:=SQRT(ABS(T))+5*T^3;forI:=0step1until10doREAD(A[I]);forI:=10step-1until0dobegin;Y:=F(A[I]);ifY>400thenWRITE(I,"too large")elseWRITE(I,Y);endend