Lazarusprocedure TForm1.Button1Click(Sender: TObject);var d, e, f, g, cg, cd, ce,

Lazarus

procedure TForm1.Button1Click(Sender: TObject);
var d, e, f, g, cg, cd, ce, cf:real;
begin
cd:=StrToFloat(Edit1.Text);
ce:=StrToFloat(Edit2.Text);
cf:=StrToFloat(Edit3.Text);
g:=StrToFloat(Edit4.Text);
d:=round(g/cd*100)/100;
e:=round(g/ce*100)/100;
f:=round(g/cf*100)/100;
Edit5.Text :=FloatToStr(d);
Edit6.Text :=FloatToStr(e);
Edit7.Text :=FloatToStr(f);
end;


Задача:
Мати дала синов певну кльксть грошей попросила купити 3 кг цукру та 2 кг борошна. На грош що залишилися, мати позволила синов купити цукерок. Скльки грамв цукерок покупать син?

З того коду зробити задачку что я написав в лазарус помогите пж.