Program Notas;
Uses CRT;
Var nom, c1,c2,c3, Seccion : string;
n1,n2,n3, promedio:integer;
Begin
CLRSCR;
WriteLn('Ingrese su Nombre');
readLn(nom);
WriteLn('Ingrese el nombre de la seccion');
readLn(seccion);
WriteLn('Ingrese el nombre del primer curso');
readLn(c1);
WriteLn('Ingrese nota del primer curso');
readLn(n1);
WriteLn('Ingrese el nombre del segundo curso');
readLn(c2);
WriteLn('Ingrese nota del segundo curso');
readLn(n2);
WriteLn('Ingrese el nombre del tercer curso');
readLn(c3);
WriteLn('Ingrese nota del tercer curso');
readLn(n3);
promedio:=(n1+n2+n3) div 3;
CLRSCR;
WriteLn('Hola', nom, 'de la seccion',seccion);
WriteLn('-------------------');
WriteLn(' Nota de ',c1,' : ',n1);
WriteLn(' Nota de ',c2,' : ',n2);
WriteLn(' Nota de ',c3,' : ',n3);
WriteLn(' Su promedio final es de: ',promedio);
ReadKey
End.