program testSlaOver; uses wincrt;
procedure slaOver(aantal: integer);
   begin
      while (aantal>0) do
      begin
         writeln;
         aantal:=aantal-1
      end
   end;
begin
   writeln('Dit programma');
   slaOver(3);
   writeln('test de functie');
   slaOver(6);
   writeln('slaOver')
end.