/*
data score;
array key[10] $1 _temporary_;
array ans[10] $1;
array score[10] _temporary_;
if _n_=1 then
do i=1 to 10;
input key[i] @;
end;
input id $ (ans1-ans10) ($ 1.);
rawscore=0;
do i=1 to 10;
score[i]=(ans[i]=key[i]);
rawscore+score[i];
end;
percent=100*rawscore/10;
drop i;
datalines;
a b c d e e d c b a
001 abadbdabcb
002 abcdadcbad
003 adcabadcba
;
proc print data=score;
title "score";
id id;
run;
data prob;
input (ht1-ht5) (2.) (wt1-wt5)(3.);
array ht[5];
array wt[5];
array dens[5];
do i=1 to 5;
dens[i]=wt[i]/ht[i]**2;
end;
drop i;
datalines;
2564235689756231254896542
64 52 56325 523 456
;
proc print data=prob;
title "15.1";
run;
data temp;
input tf1-tf10;
array tf[10];
array tc[10];
do i=1 to 10;
tc[i]=5/9*(tf[i]-32);
end;
drop i;
datalines;
35 25 6 569 5 45 2 8 6 12