{Pas op! Dit programma demonstreert waarom je
geen globale variabelen moet gebruiken.}
program testSlaOver; uses wincrt;
var
   aantal: integer;
procedure slaOver;
   begin
      while (aantal>0) do
      begin
         writeln;
         aantal:=aantal-1
      end
   end;
begin
   writeln('Dit programma');
   aantal:=3;
   slaOver;
   writeln('test de functie');
   aantal:=6;
   slaOver;
   writeln('slaOver')
end.