Prof. Marco A. Wehrmeister's Home Page

Program Exe10_Modificado;
var
  Nome : String[30];
  Prof : String[5];
  Idade : Byte;
  Salario : Real;
begin
  // solicita que o usuario informe um nome
  write('Digite o nome: ');
  readln(Nome);
 
  // solicita que o usuario informe um código de profissão
  write('Digite o código da profissão: ');
  readln(Prof);
 
  // solicita que o usuario informe a idade da pessoa
  write('Digite a idade: ');
  readln(Idade);
 
  // solicita que o usuario informe o salário da pessoa
  write('Digite o salário: ');
  readln(Salario);
 
  writeln; // pula uma linha
 
  // escreve as informacoes solicitadas anteriormente
  writeln('O nome da pessoa informada é ', Nome, ', que possui ', Idade, ' anos e trabalha como ', Prof, ', 
          recebendo R$ ', Salario:0:2, ' mensais.');
end.

Resultado da execução do programa

Digite o nome: Joao da Silva
Digite o código da profissão: PR001
Digite a idade: 40
Digite o salário: 1456.85

O nome da pessoa informada é Joao da Silva, que possui 40 anos e trabalha como PR001, recebendo R$ 1456.85 mensais.