uses crt;
var
k,u,i:byte;
m,y:string;
begin
clrscr;
write('Mesaji girin '); readln(m);
U:=length(m);
repeat
clrscr;
for k:= 1 to 80-u do
begin
gotoxy(k,12);
begin
y:=copy(m,1,k);
write(y);
end;
writeln(' ',m);
delay(5000);
end;
until keypressed;
readkey;
end.