[pong]

b)

........

Working-Storage Section.

05 zeichenkette occurs 9999 indexed by eing-i.
    10 eingabe pic x(1).

.......

Procedure Division.

hauptprogramm
    section.
    display 'geben sie ihren numerischen zeichenkette ein'
    
    perform with test before
    varying eing-i from 1 by 1
    until eingabe(eing-i) = 'e'

    accept eingabe(eing-i) from terminal
    if eingabe(eing-i) is numeric
      then
        display eingabe(eing-i) upon terminal
      else 
        continue
    end-if

    end-perform
    move 
    .
    end-section.
    exit.

pong