program Registros;
type
    str20 = string[20];
    alumno = record
        codigo : integer;
        nombre : str20;
        promedio : real;
    end;
procedure leer(var alu : alumno);
begin
    writeln('Ingrese el código del alumno');
    read(alu.codigo);
    if (alu.codigo <> 0) then 
    begin
        writeln('Ingrese el nombre del alumno'); readln(alu.nombre);
        
        writeln('Ingrese el promedio del alumno'); readln(alu.promedio);
    end;
end;
{ declaración de variables del programa principal }
var
    a : alumno;
    contador: integer;
{ cuerpo del programa principal }
begin
    contador := 0;
    repeat
        leer(a);
        contador := contador + 1;
    until a.codigo = 0;
    writeln('La cantidad de alumnos leidos fueron: ', contador);
end.