Program szkrollozos;
uses crt;
var s,sc:string;
    i,j:byte;
begin
     clrscr;
     WriteLn('Kerem a szoveget!');
     ReadLn(s);
     sc:=s;
     clrscr;
     for i:=1 to 81-length(s) do
      begin
       Gotoxy(1,12);
       delay(1200);
       writeln(sc);
       insert(' ',sc,1);
      end;
     ReadLn;
end.