{Welche Ausgabe liefert dieses Programm, und warum?
 Was sind hier globale, was lokale Variablen und wo werden sie genutzt?}


program standard;

uses crt;

var
   a : integer;
   b : integer;

procedure Procedure1;
var
   a : integer;

begin
   a:=1;
   a:=a+b;
   b:=2*b;
   writeln('a=',a,'b=',b);
end;

procedure Procedure2;
var
   b : integer;
begin
   Procedure1;
   a:=a+b;
   b:=2*b;
   Procedure1;
   writeln('a=',a,'b=',b);
end;

begin
   a:=2;
   b:=2;
   Procedure2;
end.