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

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