6 lines
80 B
QBasic
6 lines
80 B
QBasic
CLS
|
|
Dim i As Integer
|
|
INPUT "een getal"; i
|
|
if i>9999 THEN
|
|
PRINT "veel"
|
|
ENDIF
|