options ps=35 ls=76;
data a;
  input ltr $ x1 x2;
datalines;
a 51.2 81.6
b 39.5 81.4
c 29.9 73.0
d 54.6 81.0
e 22.9 71.9
f 27.9 75.0
g 31.3 80.7
h 52.9 81.9
i 33.4 76.6
j 25.5 73.3
k  8.5 65.6
l 47.1 81.7
m 22.6 77.2
n 20.6 69.7
o 35.2 78.7
p 23.7 70.1
q 42.1 78.5
r  8.2 70.8
s 26.9 71.4
t 32.3 76.8
u 14.2 73.3
v 38.3 79.6
w 43.6 82.3
x 28.0 76.7
y 25.4 69.7
z 19.4 69.9
;
proc plot;
 plot x2*x1=ltr / haxis=0 to 90 by 10 vaxis=0 to 90 by 10;
 plot x2*x1=ltr;
run; 
proc princomp cov out=Prin;
 var x1 x2;
run;
proc plot;
 plot prin2*prin1=ltr / vaxis=-25 to 25 by 10 haxis=-25 to 25 by 10;
 plot prin2*prin1=ltr;
run; 
proc corr;
 var x1 x2;
run;
proc corr;
 var prin1 prin2;
run;
proc print;
run;