Дан круг радиуса R. Определить, поместиться ли правильный треугольник со сторонами а в этом круге. Для программы Qbasic

QbasicCLSINPUT \"R = \", R INPUT \"a = \", a IF R < a / SQR(3) THEN PRINT \"No\" ELSE PRINT \"Yes\" END IFPascal:var Skv, Skr, stor, diag, diam: double;begin write(\'Площадь квадрата = \'); readln(Skv); write(\'Площадь круга = \'); readln(Skr); stor := sqrt(Skv); diag := stor * sqrt(2); diam := 2 * sqrt(Skr / pi); write(\'Круг \'); if diam > stor then write(\'не \'); writeln(\'помещается в квадрат.\'); write(\'Квадрат \'); if diag > diam then write(\'не \'); writeln(\'помещается в круг.\'); readlnend.