O programa consiste em:
INCLUSÃO: utilizada para a entrada de dados de clientes;
EXCLUSÃO: utilizada para excluir o cadastro de um cliente;
CONSULTA: utilizada para listar os clientes cadastrados;
SAIR: sair do módulo de cadastro.
3-)Utilizar um loop principal que se repita até a chamada da opção de sair.

PROGRAM EXEMPLO;
USES CRT;
TYPE REGISTRO1 = RECORD
nome: STRING;
END;
VAR clientes: ARRAY[1..10] OF REGISTRO1;
pac_cres: ARRAY[1..10] OF REGISTRO1;
pac_decres: ARRAY[1..10] OF REGISTRO1;
cont, cont_p, i, j, op: INTEGER;
pac_aux: STRING;
BEGIN
cont_p := 1;
REPEAT
CLRSCR;
WRITELN(\\\’1-Cadastrar cliente \\\’);
WRITELN(\\\’2-Consultar cliente \\\’);
WRITELN(\\\’3-Excluir clinte \\\’);
WRITELN(\\\’4-Finalizar\\\’);
WRITE(\\\’Digite a op‡Æo: \\\’);
READLN(op);
CASE op OF
1: BEGIN
IF (cont_p