Notas de um aluno

program notasampliado;

  var
    av1: real;
    av2: real;
    av3: real;
    notaTotal: real;

  begin
    writeln('Entre com a nota do aluno na avaliação 1: ');
    readln(av1);  
       while (av1<0) or (av1>30) do
          begin {repete enquanto as notas forem menores que 0 ou maiores que 30}
            writeln('Notas inválidas! Digite notas de 0 a 30!');
            readln(av1);
          end;

    writeln('Entre com a nota do aluno na avaliação 2: ');
    readln(av2);
       while (av2<0) or (av2>30) do
          begin {repete enquanto as notas forem menores que 0 ou maiores que 30}
            writeln('Notas inválidas! Digite notas de 0 a 30!');
            readln(av2);
          end;

    writeln('Entre com a nota do aluno na avaliação 3: ');
    readln(av3);
       while (av3<0) or (av3>40) do
          begin {repete enquanto as notas forem menores que 0 ou maiores que 40}
            writeln('Notas inválidas! Digite notas de 0 a 40!');
            readln(av3);
          end;

   
    notaTotal := av1 + av2 + av3;
    writeln('A nota total do aluno é: ', notaTotal);

    if notaTotal < 60 then
      begin
        writeln('O aluno foi reprovado');
      end
    else
      begin
        writeln('O aluno foi aprovado');
      end
  end.