. Напишите программный код. Даны стороны прямоугольника a и b. Найти его площадь S = a•b и периметр P = 2•(a + b). Данные вводятся с клавиатуры.

квадрат вписан в круг при условии что r*2(диаметр)> диагонали квадрата 

на qbasic

? "введите 2 числа - радиус круга и сторону квадрата соответсвенно"

input a; b

c=a*2   диаметр

g=sqr(a*a+a*a) диагональ  

if c> g then 1 else 2

1 ? "квадрат вписан в круг"

goto 3

2 ? "квадрат не вписан в круг"

3 end

строка меню, строка заголовка, закрывающая кнопка, сворачивающая кнопка, разворачивающая кнопка, полосы прокрутки, рамка окна, рабочая область.

подвести курсор справа от удаляемого символа

клацнуть бэкспейс

радоваться

var i: integer; begin  for i: = 2 to 14 do      writeln(i*i); end.