OPTIONS LS=64 PS=66 NONUMBER NODATE;

DATA IN;
     DO df = 1 TO 50;
        T10 = TINV(.90,DF);
        T05 = TINV(.95,DF);
        T025= TINV(.975,DF);
        T01 = TINV(.99,DF);
        T005= TINV(.995,DF);
        OUTPUT;
     END;
DATA IN2;
        Z10 = PROBIT(.90);
        Z05 = PROBIT(.95);
        Z025= PROBIT(.975);
        Z01 = PROBIT(.99);
        Z005= PROBIT(.995);  OUTPUT;

PROC PRINT DATA=IN;
     ID df; VAR T10 T05 T025 T01 T005;
     FORMAT T10 7.4 T05 7.4 T025 7.4 T01 7.4 T005 7.4;
TITLE 'CRITICAL VALUES FOR T-DISTRIBUTIONS';

PROC PRINT DATA=IN2;
     VAR Z10 Z05 Z025 Z01 Z005;
     FORMAT Z10 7.4 Z05 7.4 Z025 7.4 Z01 7.4 Z005 7.4;
RUN;