MEDIA DE NOTAS

O CODIGO

Program Notasec ;
var i,soma,nota,n:integer;
media:real;
Begin
writeln('quantas disciplinas queres');
readln(n);
soma:=0;
for i:=1 to n do
begin
repeat
write('nota ',i,' = ');
readln(nota);
if (nota >= 1) or (nota <= 20) then
writeln('introduz uma nota valida')
until (nota >= 1) and (nota <= 20);
soma:=soma+nota;
end;
media:=soma/n;
writeln('media das notas = ',media:5:2);
End.

O RESULTADO FINAL