program exercicio01;	
uses crt;
    type registo = record
       nome, ender : string [35]; 
       telef: string [20];
    end;
var cliente1, cliente2 : registo; 
begin
clrscr;
writeln ('Registar dois Clientes'); writeln; writeln;
write	('Nome: '); 
readln (cliente1.nome); 
write	('Endereco: '); 
readln (cliente1.ender); 
write	('Teletelef: '); 
readln (cliente1.telef);
writeln; writeln;
write	('Nome: '); 
readln (cliente2.nome); 
write	('Endereco: '); 
readln (cliente2.ender); 
write	('Teletelef: '); 
readln (cliente2.telef);
clrscr;
writeln ('Pressione <Enter> para ver os clientes registados...'); readln;
clrscr;
writeln ('Clientes Registados'); writeln; writeln;
writeln ('Nome: ', cliente1.nome); writeln ('Endereco: ', cliente1.ender); writeln ('Teletelef: ', cliente1.telef);
writeln; writeln;
writeln ('Nome: ', cliente2.nome); writeln ('Endereco: ', cliente2.ender); writeln ('Teletelef: ', cliente2.telef);
end.