Program logicander;
Uses WinCrt;
Var
n1, n2, n3, n4, total : integer;
prom, nota : real;
begin
WriteLn ( 'Ingrese la nota del Primer corte' );
ReadLn (n1);
WriteLn ( 'Ingrese la nota del Segundo corte' );
ReadLn (n2);
WriteLn ( 'Ingrese la nota del Tercer corte' );
ReadLn (n3);
WriteLn ( 'Ingrese la nota del Cuarto corte' );
ReadLn (n4);
total:= n1+n2+n3+n4;
prom:= total/4;
nota:= (prom*20)/100;
WriteLn ( 'La suma de los cuatro cortes es: ', total);
WriteLn ( 'El promedio de los cuatro cortes es: ', prom:3:2);
WriteLn ( 'La nota final es: ', nota:3:2);
If nota<10 then
WriteLn ( 'Reprobado' )
else
If (nota>10) and (nota<12) then
WriteLn ( 'Regular' )
else
If (nota>12) and (nota<14) then
WriteLn ( 'Bueno' )
else
If (nota>14) and (nota<17) then
WriteLn ( 'Sobresaliente' )
else
If nota>17 then
WriteLn ( 'Excelente' )
end.
