Составить контролирующую программу по проверке знаний учащихся

CLS
    S=0
    PRINT  “Тест по обработке древесины” 
    PRINT   “Как Вас зовут?”
    INPUT  A$
    CLS
    PRINT A$ «, ответьте на предлагаемые вопросы»
    PRINT  «1. Что получают при растворении смолы в спирте?»
    PRINT  «1 – спиртовой лак, 2 – нитролак, 3 – масляный лак»
    INPUT N
    IF N=1 THEN GOSUB 1
    CLS
    PRINT «2. Какой материал применяют для прозрачной отделки изделий из древесины?»
    PRINT  «1 – лак, 2 – масляная краска, 3 – олифа»
    INPUT N
    IF N=1 THEN GOSUB 1
    CLS
    PRINT «3. Чем наносят спиртовой лак на поверхность изделия?»
    PRINT «1 – валиком, 2 – тампоном, 3 – кистью»
    INPUT N
    IF N=2 THEN GOSUB 1
    CLS
    PRINT «4. Как наносят спиртовой лак на поверхность изделия?»
    PRINT «1 – тонким слоем поперек волокон, 2 – тонким слоем с растиранием»
    PRINT «3 – тонким слоем вдоль волокон (без повторения)»
    INPUT N
    IF N=3 THEN GOSUB 1
    CLS
    PRINT «5. Чем наносят масляный лак на поверхность изделия?»
    PRINT «1 – валиком, 2 – мягкой кистью, 3 – тампоном»
    INPUT N
    IF N=2 THEN GOSUB 1
    CLS
    IF S=5 THEN 2
    IF S=4 THEN 3
    IF S=3 THEN 4
    IF S<3 THEN 5
2   PRINT A$ «, Ваша оценка 5»
    END
3   PRINT A$ «, Ваша оценка 4»
    END
4   PRINT A$ «, Ваша оценка 3»
    END
5   PRINT A$ «, Ваша оценка 2»
    END
1   S=S+1
    RETURN