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