program ze;
uses crt;
var
opcao:integer;
conta:integer;
i:array[1..100] of integer;
ncd:array[1..100] of string;
tp:array[1..100] of string;
a:integer;
{--------------------------------------------------------------}
procedure prepara;
begin
clrscr;
gotoxy(35,1);
writeln('Gestão de Cds');
writeln('_______________________________________________________________________________________');
end;
{--------------------------------------------------------------}
procedure opp1;
begin
prepara;
writeln(' ');
writeln('Escreva o Codigo do Cd');
readln(i[a]);
writeln('Escreva o Nome do Cd ou DvD');
readln(ncd[a]);
writeln('Escreva o Tipo de Cd ou DvD');
readln(tp[a]);
end;
{--------------------------------------------------------------}
procedure opp2;
begin
prepara;
writeln('O codigo do Cd ou DvD -> ');
writeln('O Nome do Cd ou DvD -> ');
writeln('O Tipo de Cd ou DvD -> ');
readln;
end;
{--------------------------------------------------------------}
procedure opp3;
begin
prepara;
writeln(' ');
writeln('Este Programa Foi Desenvolvido Por : Ze21038');
writeln(' ');
writeln('Versão 1.0.');
readln;
end;
{--------------------------------------------------------------}
procedure menu;
begin
if opcao=1 then
begin
opp1;
end;
if opcao=2 then
begin
opp2;
end;
if opcao=3 then
begin
opp3;
end;
end;
{--------------------------------------------------------------}
begin
while opcao <> 4 do
begin
prepara;
writeln(' ');
writeln('1)Inserir Na Lista');
writeln(' ');
writeln('2)Listar');
writeln(' ');
writeln('3)About');
writeln(' ');
writeln('4)Sair');
writeln(' ');
readln(opcao);
menu;
end;
writeln('Fim');
readln;
end.