Questão número 305058

Considere o programa em Object Pascal listado abaixo:

program pQ1; {$APPTYPE CONSOLE}

uses SysUtils;

const c = 20;

var

vi: Integer;

vr: Real;

b: Real;

procedure testaEscopo (var vr: Real);

var

b: Real;

begin

b:= 3.0;

vr:= vr - b;

Writeln( IntToStr(vi), FloatToStr(vr),

                                                FloatToStr(b));                                 //(a)

end;

begin

vi:= c;

b:= 4.0;

vr:= 5.0;

testaEscopo (vr);

Writeln( IntToStr(vi), FloatToStr(vr),

                                FloatToStr(b));                       // (b)

end.

A saída produzida pelo programa ( linhas (a) e (b) ) será:

• A. 2023 e 2024;
• B. 2053 e 2024;
• C. 2023 e 2054;
• D. 2053 e 2053;
• E. 2053 e 2054.