Solução em Pascal do Problema 6

program Notas;
var
  n, Nota, Contador, NotaMaior, NotaMenor: integer;
begin
  writeln ('Entre com o numero de alunos: ');
  read (n);
  writeln ('Digite as notas(de 0 a 100) dos alunos: ');
  Nota := 0;
  Contador := 0;
  NotaMaior := 0;
  NotaMenor := 100;
  repeat
    read (Nota);
    Contador := Contador+1;
    if (NotaMaior < Nota) then NotaMaior := Nota;
    if (NotaMenor > Nota) then NotaMenor := Nota
  until Contador = n;
  writeln ('A maior nota obtida foi: ',NotaMaior);
  writeln ('A menor nota obtida foi: ',NotaMenor)
end.