data coronary; 
input gender age disease;
agesquare=age*age;
datalines;
1 45 0                   
1 37 1
0 29 0
0 65 1
run;                  

proc print data=coronary;
var gender age disease agesquare;
title "The Coronary Data Set";
run;