Среда разработки: Turbo Pascal 7.1
Uses Graph,crt; Var Gd,Gm:Integer; str:string; Begin clrscr; write('Введите строку: '); readln(str); Gd:=Detect; InitGraph(Gd,Gm,''); If GraphResult <> grOk Then Halt(1); SetTextStyle(DefaultFont, HorizDir, 5); OutTextXY(round((getmaxx-TextWidth(str))/2), round((getmaxy-TextHeight(str))/2),str); repeat putpixel(round((getmaxx-TextWidth(str))/2)+ random(TextWidth(str)), round((getmaxy-TextHeight(str))/2)+ random(TextHeight(str)),black); delay(round(100/TextWidth(str))) until keypressed; CloseGraph; End.