Program Record

Program Hurufbergerak;
uses crt;
var
 kata:string;
 i:integer;
begin
 clrscr;
 writeln('Ingin Mencoba ??? Masukkan Kalimat Anda. Saksikan apa yang akan terjadi !!');readln(kata);
 clrscr;
 for i:=1 to length (kata) do
 begin
 gotoxy(i+40,10);
 delay(56600);
 writeln(kata[i]);
 end;
 readln;
 end.

Categories: DDPK