Crie uma variável do tipo REGISTRO, que contenha os seguintes dados: código do cliente, nome, endereço, data de nascimento, sexo, salário mensal e idade. Após a criação dessa variável, entre com os dados relativos a cinco clientes e no final liste os valores armazenados nos registros.

P3_3bim_Alg.pas

// Crie uma variável do tipo REGISTRO, que contenha os seguintes dados:
// código do cliente, nome, endereço, data de nascimento, sexo, salário
// mensal e idade. Após a criação dessa variável, entre com os dados
// relativos a cinco clientes e no final liste os valores armazenados
// nos registros.


program P3_3bim_Alg;

uses crt;

type Cliente = Record
    cod: Integer;
    nome: String;
    endereco: String;
    dt_nascimento: String;
    sexo: Char;
    salario_mensal: Real;
    idade: Integer;
end;

var
	clientes: Array [1..5] of Cliente;
	i: Integer;

begin
	// Cadastro dos 5 clientes
	for i := 1 to 5 do
	begin
		writeln('------------------------------');
		writeln('| Cadastro do cliente nº ', i);
		writeln('------------------------------');
		write('| Código: ');
		readln(clientes[i].cod);
		write('| Nome: ');
		readln(clientes[i].nome);
		write('| Endereço: ');
		readln(clientes[i].endereco);
		write('| Data de nascimento [DD/MM/AAAA]: ');
		readln(clientes[i].dt_nascimento);
		write('| Sexo [M/F]: ');
		readln(clientes[i].sexo);
		write('| Salário mensal [0.00] R$: ');
		readln(clientes[i].salario_mensal);
		write('| Idade: ');
		readln(clientes[i].idade);
		clrscr;
	end;

	// Mostra os clientes cadastrados
	writeln('------------------------');
	writeln('| Clientes cadastrados |');
	writeln('------------------------');
	
	for i := 1 to 5 do
	begin
		writeln('|->> Cliente 0', i);
		writeln('|');
		writeln('| Código: ', clientes[i].cod);
		writeln('| Nome: ', clientes[i].nome);
		writeln('| Endereço: ', clientes[i].endereco);
		writeln('| Data de nascimento: ', clientes[i].dt_nascimento);
		writeln('| Sexo: ', clientes[i].sexo);
		writeln('| Salário mensal: ', clientes[i].salario_mensal:2:2);
		writeln('| Idade: ', clientes[i].idade);
		writeln('------------------------');
	end;
end.