Delphi meu algoritmo esta fechando sem mostrar os dados necesarios

[edsonxdXDxd 0]

Tenho q criar um algoritmo q receba um nome e uma idade e exiba esses dados no final, mas depois de colocar o nome e a idade no ultimo enter para mostrar os dados, ele fecha .

quem puder ajudar obrigado.

 

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

program nome_idade;

var nome, idade: string;

begin
 writeln('nome da pessoa');
 readln(nome);
 writeln('idade da pessoa');
 read(idade);
 writeln('o nome da pessoa e: ',nome);
 writeln('a idade da pessoa e: ',idade);
 readln;
end.

 

Editado 5 de janeiro por Simon Viegas
Movido para Pascal; Inserido tag CODE

[Simon Viegas 1.170]

Olá.

 

2 horas atrás, edsonxdXDxd disse:

depois de colocar o nome e a idade no ultimo enter para mostrar os dados, ele fecha .

Mude o read para readln.

 

Dê uma olhada nesse tópico: Qual a diferença entre READ e READLN ???

 

PS: ao usar readln para aguardar antes de continuar (e por consequência fechar), você precisará dar um ENTER. Caso queira continuar com qualquer* tecla, poderá usar o ReadKey. Ex.:

writeln('a idade da pessoa e: ',idade);
writeln;
write  ('Pressione qualquer tecla para continuar');
ReadKey;
end.

obs. 1: vale salientar que esse texto que coloquei antes não faz parte do comando, apenas inserir para complementar o código, ele poderia está no seu também, a diferença que teria que dizer "Pressione ENTER...". A tecla ReadKey funciona parecido com o readln, a diferença que a tela digitada é retornara no próprio comando, em vez jogada na variável que foi passada por parâmetro, ou seja, caso quisesse pegar o valor, usaria algo assim:

tecla:=ReadKey;

 

obs. 2: caso o comando não funcione no seu compilador, acusando algo como "Identifier not found...", será necessário carregar a unit (biblioteca) que contém o comando, no caso a CRT (ou WinCRT, em alguns casos). Ex.:

program nome_idade;
uses
  CRT;

 

 

Qualquer dúvida é só perguntar.

 

No aguardo.