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.
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.