Program Record

program animasi_huruf;
uses crt;
var
 n,m:integer;
begin
 clrscr;
 n:=1;
 m:=67;
 repeat;
 clrscr;
 gotoxy(n,10);writeln('Hai Teman Teman');
 delay(5000);
 gotoxy(m,10);writeln('SELAMAT DATANG DI BLOG SAYA');
 delay(5000);
  gotoxy(m,10);writeln('WWW.FANNYPHYSICSEDUCATION.BLOGSPOT.COM');
 delay(5000);

 m:=m-1;
 n:=n+1;
 until
 n=31;
 m:=31;
 readln;
 end.

Categories: DDPK