{* Задача231 *}

REM basic

' Рассчитать произведение целых четных чисел от 2 до 20


CLS

p = 1           

For i = 2 To 20
        p = p * i
Next i

PRINT "Произведение целых чисел от 2 до 20 равно "; p

End