uses crt;
var
yazi:string='MeslekForum.com';
harf:string;
i,syu,hy:integer;
a,ss,ds:integer;
begin
	clrscr;
	syu:=length(yazi);
	a:=length(yazi);
	 while a>0 do
	  begin
		
		hy:=syu-ss;
		harf:=copy(yazi,hy,1);
		ss:=ss+1;
		ds:=80-ss;
		insert(' ',harf,1);
		for i:=a to ds do
		begin
		 delay(50);
		 gotoxy(i,1);
		 write(harf);
		end;
		a:=a-1;
	  end;
	readln;
end.
{Adının Harfleri tek tek ilerliycek}