Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original
Program Pzim ; var n1,n2,media:real; Begin writeln('digite a nota do primeiro bimestre'); readln (n1); writeln('digite a nota do segundo bimestre'); readln (n2); media:= (n1+n2)/2; if media > 7 then writeln ('Safo - média ',media:5:2) else if media > 5 then writeln ('Quase lá - média ',media:5:2) else writeln ('Dançou - média ',media:5:2); End.