Perulangan pada turbo pascal

Hai guys... disi saya akan mempost tentang Perulangan pada turbo pascal dan chekidot:





Atau sebagai berikut:

USES CRT;
VAR
A:BYTE;
CLRSCR;
       A:=1;
       WHILE A<=10 DO
BEGIN
WRITELN('BILANGAN ',A);
A:=A+2
END;
READLN;
END.

Dan akan menjadi seperti ini(tekan ctrl+f9):


 


 jika menginkan kebalikanya seperti dibawah:




Atau


USES CRT;
VAR
A:BYTE;
CLRSCR;
       A:=10;
       WHILE A<=1 DO
BEGIN
WRITELN('BILANGAN ',A);
A:=A-2
END;
READLN;
END.

      
Dan menjadi seperti ini:




Sekian dari potingan kami jika ada yang kurang atau lebihnya saya mohon maaf.