Nomor 1
PROGRAM LUNCUR_ROKET;
USES CRT;
BEGIN
CLRSCR;
textcolor(14);
gotoxy(15,24);
WRITELN('PELUCURAN ROKET AKAN SEGERA DIMULAI DARI HITUNGAN 10');
gotoxy(25,25);
WRITE('TEKAN ENTER UNTUK MULAI');READLN;
gotoxy(35,27);write('10');delay(1000);
gotoxy(35,27);write(' 9');delay(1000);
gotoxy(35,27);write(' 8');delay(1000);
gotoxy(35,27);write(' 7');delay(1000);
gotoxy(35,27);write(' 6');delay(1000);
gotoxy(35,27);write(' 5');delay(1000);
gotoxy(35,27);write(' 4');delay(1000);
gotoxy(35,27);write(' 3');delay(1000);
gotoxy(35,27);write(' 2');delay(1000);
gotoxy(35,27);write('...