program testsla3over; uses wincrt;
procedure sla3over;
   begin
      writeln;
      writeln;
      writeln
   end;
begin
   writeln('Dit programma');
   sla3over;
   writeln('test de functie');
   sla3over;
   writeln('sla3over')
end.