Turbo Basic - es un ejercicio de algoridmos espero q me ayuden gracias

' *********************************************

' muestra los primeros 'n' números pares

' *********************************************

CLS

DO

    INPUT "Indique cuantos primeros numeros pares desea generar [1 - 100] ",n

    IF n<1 OR n>100 THEN LOOP

FOR a=1 TO n

    ? a*2;

NEXT