Aula 04 exercicio 01 com begin

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
		begin
			writeln ('Safo - média ',media:5:2);
			writeln ('Você pode ir para casa - parabéns') ;
		end
	else
		if media > 5 then
			writeln ('Quase lá - média ',media:5:2)
		else
			begin
				writeln ('Dançou - média ',media:5:2) ;
				writeln ('Você pode ir para casa - até o próximo ano'); 
			end;
 End.