Подскажите ошибку в коде

CLS
INPUT "Введите длину а прямоугольника: ", a
INPUT "Введите длину в прямоугольника: ", b
S=a*b
P= 2(a+b)
d= sqrt(a*a+b*b):Print
PRINT "Площадь прямоугольника=",S
PRINT "Периметр прямоугольника=",P
PRINT "Длину диагонали прямоугольника=",d
END

по строке последней пишет ошибку - предполагается наличие инструкции

язык VBScript