Даны три числа. Если их произведение меньше 50, то числа увеличить в 10 раз. Составить программу в Delphi

procedure TForm21.Button1Click(Sender: TObject);var a,b,c,d:real;begina:=strtofloat(edit1.text);b:=strtofloat(edit2.text);c:=strtofloat(edit3.text);d:=a*b*c;if d<50 thenbegina:=a*10; edit1.Text:=floattostr(a); b:=b*10; edit2.Text:=floattostr(b); c:=c*10; edit3.Text:=floattostr(c)end elseLabel1.Caption:='Proizvedenie chisel >50'; end;procedure TForm21.Button3Click(Sender: TObject);beginclose;end;end.

a:=strtofloat(edit1.text);b:=strtofloat(edit1.text);c:=strtofloat(edit1.text);d:=a*b*c;if d<50 thenbegina:=a*10;