data a;
i=1;
sum=0;
do i=1 to 999 by 1;
if mod(i,2)=1 then sum+i;
end;
put sum;
run;
data _null_;
x=1;
do i=1 to 200 by 1;
bj=0;
do j=1 to i/2 by 1;
if mod(i,j+1)=0 then  bj=1;
end;
if bj=0 then put i;
bj=0;
end;
run;

data  bclass;
/*INFILE "d:\2.txt" DELIMITER=' ' ;*/
input Name$ sex$  height  weight;
cards;
李强 男 187 85
李欣 女 156 50
张浩强 男 168 59
牛皓 男 179 77
朱珠 女 163 56
胡亮 男 166 68
杨家富 男 177 74
;
run;
data classf classm;
set bclass;
select(sex);
WHen('男') output classf;
when('女') output classm;
otherwise put sex= '有错';
end;
run;

data a;
set bclass;
keep name height weight;
run;

data c;
set bclass;
ratio=(weight/height);
run;
data d;
sumf=0;
summ=0;
set bclass;
if sex='男' then sumf+height;
if sex='女' then summ+height;
run;

data tong;
input x @@ ;
cards;
20 13 20 16 23 19 19 16
;
run;

proc sort data=tong;
by x ;

run;
data qq;
input x @@;
if 1<=x<=5 then goto ok;
put x; count+1;
return;
ok: sumx+x;
cards;
1 2 7 2 12 24 22
;
run;