Плиз в лазарусе можете сделать и скинуть готовый документ 25 балов) 5 задание

begin a := StrToFloat(Edit1.Text); b := StrToFloat(Edit2.Text); c := StrToFloat(Edit3.Text); m := a + b - c / (a - 2 * b); Label4.Caption := FloatToStr (m); Где Edit1, Edit2, Edit3 - поля для ввода, Label4 - строка для вывода.