Составить программу для вычисления длины окружности (1=2ПR) — QBasic(Бейсик)

CLS
INPUT r
pi=3.141592
PRINT 2*pi*r