Дана площадь квадрата. Составьте программу для его сторон и периметра.

var

Form1 : TForm1;

b : string;

d, r1, r : integer;

implementation

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObject);

begin

b : = Edit1. Text; / / заносим из окна текстовую переменную в b

d : = StrToInt (b); / / преобразуем текстовую переменную b в тип integer

r1 : = Sqrt (d); / / находим сторону квадрата

r : = 4 * r1; / / находим периметр искомого квадрата

Edit2. Text : = IntToStr (r1); / / выводим информацию стороны квадрата

Edit3. Text : = IntToStr (r); / / выводим информацию периметра квадрата

end;

end.