Membuat Tulisan Berjalan Miring Pada Pascal

Latihan membuat Tulisan berjalan miring pada pascal

Listing programnya :

uses crt;
var
        x,y:byte;
        ulang:char;
begin
         clrscr;
         ulang:='y';
         repeat
                    x:=1;
                    y:=1;
                    repeat
                            delay(100);
                            gotoxy(x-1,y-1);write(' ');
                            gotoxy(x,y);write('Berjalan Miring');
                            x:=x+1;
                            y:=y+1;
                    until(x>25);
                    writeln;
                    write('Apakah anda ingin mengulang [Y/T] ?');readln(ulang);
          until(ulang='t')or(ulang='T');
end.


Selamat Mencoba !!!