zadach413.BAS

{* Задача413 *}

REM basic

' Найти сумму всех простых чисел (от 10 до 99)


CLS
For i = 10 To 99
s = 0
For y = 2 To SQR(i)
If i Mod y = 0 Then s = 1
Next y
If s = 1 Then  Else l = l + i
Next i
PRINT l
End