P1 Prova Exerci Net 02

program p2;
var nota1, nota2, media : real;
resp, cont : integer;
begin
writeln;
repeat
write ('Digite a nota da 1a avaliacao: ');
readln (nota1);
writeln;
write ('Digite a nota da 2a avaliacao: ');
readln (nota2);
writeln;
media := (nota1 + nota2) / 2;
writeln ('A media do aluno eh: ', media:3:1);
writeln;
if media >= 6.0 then
cont := cont + 1;
write ('Calcular a media de outro aluno? 1.Sim 2.Nao ');
readln (resp);
writeln;
until resp <> 1;
writeln ('Quantidade de alunos aprovados: ', cont);
writeln;
end.