Среда разработки: 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.
Hosted by uCoz