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.