[m3zz0w1x]

Dann poste doch Deinen Code...

[bobkelso88]

Sub Main()
Do
Clear()
Dim z, n, s As Integer
Write("Bitte geben sie eine Zahl ein: ")
z = ReadLine()

For n = 1 To z
WriteLine(n)
Next

ReadKey()
Loop
End Sub



weiter weiss ich nicht

[Xalir]

Sechs, setzen. Du hast nicht mal versucht, den PseudoCode umzusetzen.