Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  {
Language: PASCAL
Code:
 program promedio;
var
nota1, nota2, nota3,prom: real;
nombre: string;
begin
  writeln('Ingrese el nombre');
  readln( nombre );
  write('Nota: ');   readln( nota1 );
  write('Nota: ');   readln( nota2 );
  writeln('Nota: ');   readln( nota3 );
  prom := (nota1 + nota2 +nota3)/3;
if prom>= 7 then writeln (nombre, 'aprobo con : ', prom)
                    else writeln (nombre, 'desaprobo con : ', prom) ;
end. 
Comments: