zadach118.BAS

{* Задача118 *}

REM basic

' Найти периметр квадрата, если его диагональ равна D


Input “ Введите диагональ”;d
A=sqr(d^2/4+d^2/4)
P=4*a
PRINT”Периметр равен”;p

End