В Delphi создать программу поиска меньшей температуры воды из двух чисел

(Должны быть использованы кнопки (3), окна редактирования (2) и метки (5))

Процедура для кнопки «ВЫХОД»:

procedure TForm1.Button3Click(Sender: TObject);

begin

close

end;

5.В Delphi создать программу «Калькулятор» для арифметических операций

(Должны быть использованы кнопки (5), окна редактирования (2) и метки (4))

Процедура для кнопки «/»:

procedure TForm1.Button4Click(Sender: TObject);

var per,vtor,v:real;

begin

per:=strtoInt(edit1.text);

vtor:=strtoFloat(Edit2.text);

v:=(per)/(vtor);

label4.Caption:=FloatToStrF(v,ffFixed,4,2);

end;

Процедура для кнопки «+»:

procedure TForm1.Button1Click(Sender: TObject);

var per,vtor,v:real;

begin

per:=strtoInt(edit1.text);

vtor:=strtoFloat(Edit2.text);

v:=(per)+(vtor);

label4.Caption:=FloatToStrF(v,ffFixed,4,2);

end;

Процедура для кнопки «ОЧИСТИТЬ»:

procedure TForm1.BitBtn2Click(Sender: TObject);

begin label4.caption:='';

edit1.clear;

edit2.clear;

end;

6. В Delphi создать программу вычисления стоимости угля по цене за 1 кг и весу

(Должны быть использованы кнопки (3), окна редактирования (2) и метки (5))

Процедура для кнопки «ВЫЧИСЛИТЬ»:

Процедура для кнопки «ОЧИСТИТЬ»:

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

label2.caption:='';

end;

Процедура для кнопки «ВЫХОД»:

procedure TForm1.Button3Click(Sender: TObject);

begin

form1.Close;

end;