program grb1;
uses crt;
const
     tam=30;
     nop=10;
type
    cusco = array[4..13] of real;
    
    cliente = record
                n_cont:string[7];
                nome:string[50];
                saldo,teste:real;
                {oper:cusco;        }
              end;
    baleia = record
		    peso:real;
    		    nome:string;
	end;
    cadastro = array [1..tam] of cliente;
    composto = record
		    _bla:cliente;
    		    _uia:baleia;
		    _teste,_bah:cusco;
		    _cheater:cadastro;
		end;

    
    
var 
	eu,bah,ku:cliente;
	abra:real;
	uia:string;
	variavel:_array;
	{merda:cadastro;}

procedure exibe(client:cliente);
          var
             j:integer;
	     k:cadastro; 
          begin
          writeln('N£mero da conta: ',client.n_cont);
          writeln('Nome do cliente: ',client.nome);
          writeln('Saldo atual: ',client.saldo);
	  {write('Valor das £ltimas operações: ');}
          j:=1;
          {while (j<=nop) and (client.oper[j]<>0.0)
          do begin
             write(client.oper[j]);
             j:=j+1;
             end;}
          writeln;
          writeln;
          end;



begin
   clrscr;
   write('Digite um nome: ');
   readln(ku.nome);
   {readln(merda[1].nome);}
   eu.nome := 'Giovani';
   eu.n_cont := '54236-1';
   eu.saldo:=12.5;
   exibe(eu);
   readln;
end.