calcular nota de alumnos

Program notasdealumnos;
Uses WinCrt;
Var
contador,nota,promedio:real;
i,n:integer;
Begin
Writeln ('Cuantas notas tiene el alumno');
Readln (n);
For i:= 1 to n do
Begin
Writeln ('Ingrese nota',i);
Readln (nota);
contador:=contador+nota;
end;
Writeln ('La suma es : ', contador:3:2);
promedio:=contador/n;
writeln ('El promedio es: ', promedio:3:2);
End.

pares e impares

Program pareseimpares;
Uses WinCrt;
Var i,op:integer;
Begin
Writeln('Menú');
Writeln('');
Writeln('Pulse 1 para los números pares');
Writeln('Pulse 2 para los n´meros impares');
Readln(op);
if op= 1 then
Begin
ClrScr;
FOR i:=1 TO 10 DO
if (i mod 2)=0 then
Writeln(i);
End;
if op= 2 then
Begin
ClrScr;
FOR i:=1 to 10 do
IF (i mod 2)=1 then
Writeln(i);
End;
END.

Repita ordenado

Program Univers;
Uses WinCrt;
Var op,i,n:integer;
Begin

Writeln ('Menú');
Writeln ('1-Ordenar de manera ascendente');
Writeln ('2-Ordenar de manera descendente');
Readln (op);

If op=1 then
Begin
for i:=1 to 10 do
Writeln (i);
End;

If op=2 then
Begin
for i:=10 downto 1 do
Writeln (i);
End;
End.

Program Couple;
Uses WinCrt;
Var op:integer;
Begin

Writeln ('Quieres ser novio');
Writeln ('1-Si');
Writeln ('2-No');
Readln (op);

If op=1 then
Writeln ('Felicidades, la pegaste')
Else
If op=2 then
Begin
Writeln ('Lo lamento, sigue intentando');

Writeln ('Insistencia en ser novios');
Writeln ('1-Si');
Writeln ('2-No');
Readln (op);

If op=1 then
Writeln ('A la segunda la pegaste')
else
If op=2 then
Writeln ('Olvídalo, adiós')
End;
End.

abcde

Program abdcde;
Uses WinCrt;
Var a,b,c,d,e:integer;
Begin
Writeln ('Quien es mayor');
Writeln ('Ingrese a');
Readln (a);
Writeln ('Ingrese b');
Readln (b);
Writeln ('Ingrese c');
Readln (c);
Writeln ('Ingrese d');
Readln (d);
Writeln ('Ingrese e');
Readln (e);
if (a<b)and (a<c)then
writeln ('mayor es a')
else
if (b<a) and (b<c) then
Writeln ('mayor es b')
else
if (c<a) and (c<b) then
Writeln ('mayor es c')
else
if (d<a) and (d<c)then
Writeln ('mayor es d')
else
if (e<a) and (e<d) then
Writeln ('mayor es e')
End.

Calculo de Horas Trabajadas Ejercicio 1

Program Horas_Calculadas;
Uses WinCrt;
Var
hd,cd,hn,cn,calculodiurno,calculonocturno,total:real;
Begin
Writeln('***Calculo de Horas Trabajadas');
Writeln('');
Writeln('Ingrese las Horas Diurnas trabajadas');
Readln(hd);
Writeln('Ingrese el Costo de la Hora Diurna');
Readln(cd);
Writeln('Ingrese la Cantidad de Horas Nocturnas Trabajadas');
Readln(hn);
Writeln('Ingrese el Costo de la Hora Nocturna');
Readln(cn);
calculodiurno:=hd*cd;
calculonocturno:=hn*cn;
total:=calculodiurno+calculonocturno;
Writeln('El trabajador gano en Diurnos: ',calculodiurno:6:2);
Writeln('El trabajador gano en Nocturnos: ',calculonocturno:6:2);
Writeln('El trabajador gano en Total: ',total:6:2);
if total < 1780 then
Writeln('Gana menos del Sueldo Minimo')
else
Writeln('Gana mas del Sueldo Minimo')

End.