Questão 3

Program Q3;

 type
    Func = record
    nome, endereco:string;
    cod,telefone:integer;
 end ;

 Var File: Func ;
 	cont:char;

 Begin
     repeat

 		writeln('Insira o nome do cliente: ');
		readln(File.nome);

 		writeln('Insira o endereço do cliente: ');
 		readln(File.endereco);

 		writeln('Insira o Código de Área do telefone do cliente: ');
 		textcolor(yellow);
 		writeln('Exemplo: 82');
 		readln(File.cod);

		textcolor(10);
 		writeln('Insira o  telefone do cliente: ');
 		textcolor(green);
 		writeln('Exemplo: 32230810');
 		readln(File.telefone);

 		textcolor(red);
 		writeln('');
 		writeln('___________________________________');
 		textcolor(10);
 		writeln('Nome: ', File.nome);
 		writeln('Endereço: ', File.endereco);
 		//writeln('DDD: ', File.cod);
 		writeln('Telefone: ', '(',File.cod, ') ',File.telefone);
 		textcolor(red);
 		writeln('___________________________________');

 		writeln('');
 		textcolor(lightblue);
 		writeln('Deseja continuar? [S/N]');
 		readln(cont);
 		textcolor(10);

 	until upcase(cont) = 'N';

	writeln('Obrigado por usar um programa criado por Shickcard Team');

 End.