Pascal/Turbo Pascal - Contador Notas aprobadas

program notas12;

uses wincrt;

var

A,R: word;

mt,i,nmt,n,ContA,ContR:integer;

begin

writeln ('Ingrese mat');

readln (n);

for i:= 1 to n do

        begin

        writeln ('Ingrese nota de la materia:');

        Readln (nmt);

        if nmt>10 then

        WriteLn ('A');

        ContA:= ContA+1;

        if nmt<10 then

        Writeln ('R');

        ReadLn (R);

        ContR:=ContR+1;

        end;

Writeln ('Cant R:',ContR);

WriteLn ('Cant A:',ContA);

end.

O también:

program alumn;

uses wincrt;

var

n,nt,i,acun:integer;

Begin

WriteLn ('Ingrese la Cantidad de Materias a Evaluar');

ReadLn (N);

For i:= 1 to n do

	Begin

	ClrScr;

	Writeln ('Ingrese Notas:');

	Readln (Nt);

	if (Nt > 10) then

       WriteLn ('Aprobada') else

	If (Nt<9.9) Then

	Writeln ('Reprobada');

  end;

End.

{Por lo que puedo observar trabajas con freepascal pero al trabajar en testo la unidad crt es lo mismo

para ti que para mi en pascal 7 tu programa lo tienes funcionando bien como te lo dejo tu puedes

modificar la presentación de los datos como quieras pero la forma es esta del programa   }

program notas12;

uses wincrt;

var

A,R: word;

mt,i,nmt,n,ContA,ContR:integer;

begin

clrscr;

write('    Ingrese N. matas : ');

readln(n);

clrscr;

conta := 0;

    for i := 1 to n do

        begin

        write('Ingrese nota de la materia N. ',i,' : ');

        Readln(nmt);

        if nmt > 10 then

        begin

        ContA := ContA + 1;

        end;

        if nmt < 10 then

        begin

        ContR := ContR + 1;

        end;

      end;

     Writeln('   Cant R : ',ContR);

     WriteLn('   Cant A : ',ContA);

     readln;

   end.

{Fíjate que dejas al descubierto el valor 10 puesto que tiene que ser mayor o menor en realidad

lo tendrías que colocar como nmt >= 10 o en otro caso nmt <= 10 para que no quedara el 10 colgado

nunca 9.9 puesto que trabajas con números enteros no decimales suerte }