лабораторная работа №1

procedure TForm1.Button1Click(Sender: TObject);
Var a,b,c: integer;
begin
a:= StrtoInt(Edit1.Text);
b:= StrtoInt(Edit2.Text);
c:= a+b;
Edit3.Text := InttoStr(c);
end;