{* Задача230 *}

REM basic

' Рассчитать сумму целых чисел от 1 до 10.


CLS

For i = 1 To 3
        s = s + i
Next i

PRINT "Сумма целых чисел от 1 до 10 равна "; s

End