{* Задача1 *}

REM basic

' Cуммирование всех чётных чисел в пределе 1-й сотни


10 S=0
20 For I=2 To 100 Step 2
30 S=S+I
40 Next I
50 PRINT “S=”; S