Questão 663592

1_type

2_InfoFuncionario = Record;

3__Nome : String;

4__Salario : Longint;

5__CPF : String[14];

6_end;

7_const FuncionarioA : InfoFuncionario = (Nome := 'Jose', Salario := 1000, CPF := '888.444.222.33');

8_var

9 __FuncionarioB : InfoFuncionario;

10 __Funcionarios : array [1..100] of InfoFuncionario;

11_function ValorTotal(Funcionarios) : Longint;

12_var

13 __i : Integer;

14 __Total : Longint;

15_begin

16 __Total := 0;

17 __for i := 1 to 100

18 __ __Total := Total + Funcionarios[i].Salario;

19 __ValorTotal := Total;

20_end;

21_begin

22 __New(Funcionarios);

23

24 ___begin

25 __ __FuncionarioB.Nome := 'Pedro';

26 __ __FuncionarioB.Salario := 500;

27 __ __FuncionarioB.CPF := '222.444.666.33';

28 ___end;

29

30_end.

Deseja-se manipular as informações relativas a nome, salário e cadastro de pessoa física dos funcionários de uma determinada empresa, por meio de um programa escrito em linguagem Pascal. O programador responsável por essa tarefa escreveu as linhas de programa mostradas acima. Com relação a esse trecho de código e à linguagem Pascal, julgue os itens abaixo.

O trecho de código entre as linhas 22 e 29 está dentro do corpo principal do programa. A instrução na linha 22 é desnecessária, uma vez que a sua função é alocar memória para armazenar as informações dos 100 funcionários da empresa, o que já está sendo realizado por meio da linha 10.