Из трех слов вывести самое длинное — QBasic(Бейсик)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
word1$ = ""
word2$ = ""
word3$ = ""
INPUT "Type first word"; word1$
INPUT "Type second word"; word2$
INPUT "Type third word"; word3$
i1 = Len(word1$)
i2 = Len(word2$)
i3 = Len(word3$)
IF i1 > i2 THEN
    IF i1 > i3 THEN
        PRINT word1$
    ELSE
        PRINT word3$
    END IF
ELSE
    IF i2 > i3 THEN
        PRINT word2$
    ELSE
        PRINT word3$
    END IF
END IF