menu

Program examen;
uses wincrt;
var
i:integer;
n:char;
begin
Repeat
begin
writeln('1-Ejercicio 1');
writeln('2-Ejercicio 2');
writeln('0-Salir');
readln(n);
i:=1;
end;
case (n) of

'1': begin
Writeln('Introduzca el numero');
end;
'2': begin
Writeln('Introduzca el numero');
end;
'0':begin
clrscr;
writeln('Adios');
end;
else
begin
clrscr;
writeln('Opción erronea');
i:=2;
end
end
until (i=1);
end.