Составить программу для вычисления периметра ромба, диагонали которого равны D1 и D2 — Basic(Бейсик)

CLS
INPUT "Vvedite pervuy diagonali romba"; d1
INPUT "Vvedite vtoruy diagonali romba"; d2
p = 4 * SQR((d1 / 2) ^ 2 + (d2 / 2) ^ 2)
PRINT p