data notas;
input aluno $ 1-14 sexo $ P1 P2 curso $;
media=(P1+2*P2)/3;
 if media >=5 then result='aprov';
 else result='reprov';
cards;
Joaquim Silva  M 4.9 5.1 AG
Pedro Aleixo   M 3.8 2.5 AG
Ana Maria      F 7.8 8.3 FL
Helena Souza   F 8.4 4.3 AG
Mario Pinheiro M 6.4 7.3 FL
;
proc print;
title 'Dados para verificação';
run;
proc sort;
 by media;
run;
proc print;
title 'Dados ordenados pela média final';
run;
proc means;
title 'Média das notas de cada prova';
 var P1 P2 media;
run;
data teor2;
input ex1 ex2;
datalines;
203 203
208 198
198 199
200 200
202 201
192 202
197 197
;
proc print;
title 'Dados usados na aula teórica';
run;
proc means var std stderr cv mean clm;
title 'Estatísticas de interesse';
run;