program xpto;
Uses crt;
Type dados = record
       nome:string;
       disciplina:string;
       nota:integer;
      End;
Var
   aluno:array[1..20] of dados;
   registos,i:integer;
   op:string;
   media:real;

Begin
registos:=0;
media:=0;
	repeat
	registos:=registos + 1;
		writeln('Nome');
		readln(aluno[registos].nome);
		writeln('Disciplina');
		readln(aluno[registos].disciplina);
		writeln('Nota');
		readln(aluno[registos].nota);
		writeln(' ');
		writeln('Deseja introduzir um novo aluno? (S/N)');
		readln(op);
		clrscr;
	until (upcase(op)='N') or (registos=20);

	For i:=1 to registos do
   	Begin
	writeln('Aluno ',i,': ',aluno[registos].nome);
	writeln('Disciplina: ',aluno[registos].disciplina);
	writeln('Nota: ',aluno[registos].nota);
	writeln(' ');
	media:=media+aluno[registos].nota;
	end;
media:=media/registos;
writeln('A média de notas dos ',registos,' alunos é de ',media:2:2);
readln;

end.