TURBO PASCAL

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