Delphi-Quellcode:
for I := 11 to 34 do
case readline[I] of
' ': break;
'0'..'9': ATLN := ATLN+readline[I];
end;
Ungetestet, sollte aber tun.
[edit]
p.s.
readln ist echt nicht so DER Name für eine Variable
Hab ich auch erst gedacht, aber da die Prozedur ReadLn und die Variable ReadLine heißt, sollte sich da nichts beißen. [/edit]