USES CRT;
VAR X,L,LL:LONGINT;
BEGIN
CLRSCR;
X:=20;
BEGIN
REPEAT X:=X-1;
GOTOXY(16,13);
WRITELN(X);
LL:=600*9006;
L:=LL*98554*98005;
DELAY(L);
UNTIL X=0;
END;
GOTOXY(15,15);
TEXTCOLOR(14);
WRITE('DUUUAAAAARRRRR.........');
WRITE('ROKET MELUNCUR');
READLN;
END.
0 Response to "CONTOH PROGRAM PASCAL (Bag.Duarrr1)"
Post a Comment