Сделать с одним циклом

CLS
PRINT “ Ряд чётных чисел:”
PRINT “ Пошаговая сумма чётных чисел:”
   FOR i = 1 TO 10 STEP 2
        PRINT i;
          S = S + i;
        PRINT S
NEXT i

2    2
4    6
6    12 
8    20
10    30

FOR i = 2 TO 10 STEP 2
  s = s + i
  PRINT i, s
NEXT i

CLS
PRINT “ Ряд чётных чисел:”
PRINT “ Пошаговая сумма чётных чисел:”
   FOR I = 1 TO 10 STEP 2
        PRINT I;
          S = S + I;
        PRINT S
NEXT i

2    2
4    6
6    12 
8    20
10    30

    Ряд чётных чисел:
     2   4   6   8   10
      Пошаговая сумма чётных чисел:
      2   6   12   20   30

1   FOR i = 1 TO 10 STEP 2
                                                         2         s = s + i
                                                         3         PRINT i,  s
                                                         4    NEXT i

CLS
PRINT “       Ряд чётных чисел:”
FOR i = 2 TO 10 SIEP 2
    LOCATE 3, i * 2
        PRINT i;
    LOCATE 5, 2
PRINT “ Пошаговая сумма чётных чисел”
        S = S + i
     LOCATE 7, i * 2
         PRINT S;
NEXT i

Ряд  чётных чисел:
                                                2      4       6      8       10
                                           Пошаговая сумма чётных чисел:
                                                2      6       12     20     30