Repita until, alumno 2 notas, promedio individual, ingresar otro alumno

program logicander;


Uses WinCrt;
Var
    respuesta : char;
    ni, nii, prome : real;
    nombre : string;
Begin


Repeat
    Begin
    WriteLn ( 'Ingrese el nombre del alumno' );
    ReadLn (nombre);
    WriteLn ('');
    WriteLn ( 'Ingrese nota 1' );
    ReadLn (ni);
    WriteLn ('');
    WriteLn ( 'Ingrese nota 2' );
    ReadLn (nii);


    prome:= (ni+nii)/2;


    WriteLn ('');
    WriteLn ( 'El promedio es: ', prome:5:2);


    WriteLn ('');
    WriteLn ( '¿Desea agregar a otro alumno? S/N' );
    ReadLn (respuesta);
    end;


until respuesta='N';


end.