Исправь кодunit Unit1;{$mode objfpc}{$H+}interfaceusesClasses, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;type{ TForm1 }TForm1 = class(TForm)Button1: TButton;CheckBox1: TCheckBox;CheckBox2: TCheckBox;CheckBox3: TCheckBox;CheckBox4: TCheckBox;Edit1: TEdit;Edit2: TEdit;Label1: TLabel;Label2: TLabel;Label3: TLabel;procedure Button1Click(Sender: TObject);procedure CheckBox4Change(Sender: TObject);procedure Edit1Change(Sender: TObject);procedure Label1Click(Sender: TObject);privatepublicend;varForm1: TForm1;implementation{$R *. lfm}{ TForm1 }procedure TForm1. Label1Click(Sender: TObject);beginend;procedure TForm1. Edit1Change(Sender: TObject);beginend;procedure TForm1. CheckBox4Change(Sender: TObject);beginend;procedure TForm1. Button1Click(Sender: TObject);var a, b, c:real;begina:= StrToFloat(Edit1. Text);b:= StrToFloat(Edit2. Text);if CheckBox1. Checked=True thenbeginc:=a+b;Label3. Caption:= 'Сума = ' +FloatToStr(c) ;end;if CheckBox2. Checked=True thenbeginc:=a+b;Label3. Caption:= 'Різниця = ' +FloatToStr(c) ;end;if CheckBox3. Checked=True thenbeginc:=a+b;end;Label3. Caption:= 'Добуток = ' +FloatToStr(c) ;end;if CheckBox4. Checked=True thenbeginc:=a+b;Label3. Caption:= 'Частка = ' +FloatToStr(c) ;end.