program menu;

uses crt;

var a,b,c,d: integer;

var z: integer

begin

clrscr;

writeln ('1.= promedio');

writeln ('2.= promedio es promovido o no');

writeln ('3.= si 3 numeros son iguales o no');

writeln ('4.= evaluar lo siguiente');

writeln (' 1.= suma');

writeln (' 2.= producto');

writeln ('5.= Salir');

write ('Que opcion del menu desea:'); read (d);

writeln;

if d=1 then

descarga todo el codigo fuente ¡aqui