program test; uses wincrt;
begin
   randomize;
   repeat
      gotoxy(1+random(60), 1+random(20));
      write('Hallo')
   until keypressed;
   clrscr;
   gotoxy(20, 10);
   writeln('Dag!')
end.