keypresed

program keypresed;
uses wincrt;
var x : integer;
  begin
    x := 1;
    clrscr;
    Repeat
      for x:=1 to 10 do
        begin
         Write('BLOGCOPYPASTE ');
        end;
    until KeyPressed;
end.