Algoritmia - ciclo mientras

uses crt;

var

	i,cant:integer;

	notas,g,sg,p,sp:byte;

	promGanaron,promPerdieron:real;

begin

	clrscr;

	sg:=0; sp:=0; g:=0; p:=0;

	i:=1;

	write('Cantidad de alumnos: ');

	readln(cant);

	while i <= cant do begin

		write('Ingrese nota: ');

		readln(notas);

		if (notas >= 12) and (notas <=20) then begin

			inc(g);

			sg:=sg + notas;

		end

		else begin

			inc(p);

			sp:=sp + notas;

		end;

		inc(i)

	end;

	promGanaron:=sg / g;

	promPerdieron:=sp / p;

	writeln;

	writeln('Perdieron: ',p);

	writeln('Promedio de los que perdieron: ',promPerdieron:4:2);

	writeln('Ganaron: ',g);

	writeln('Promedio de los que ganaron: ',promGanaron:4:2);

end.