знайти периметр прямокутника якщо дано дві сторони цілі числа що вводяться в текстових полях edit1 і edit2 значення периметра вивести в текстове поле edit 3

procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;

В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)в созданную процедуру вставляйте код:procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin  a:=StrToInt(Edit1.Text);  b:=StrToInt(Edit2.Text);  Edit3.Text:= IntToStr((a+b)*2)end;