{* Задача34 *}

REM basic

' Составить программу нахождения суммы четных чисел
' начиная с 1 до А.


10  CLS 
20  S=O
30  INPUT “последняя цифра А=”; A
40  For  I=2 To A Step 2
50  S=S+I
60  Next   I 
70  PRINT  S; “сумма четных чисел”
80  End