Нужна помощь

переведи гектары в метры и реши

function factorial(x:integer):integer;

begin

if (x=1) then factorial:=1;

if x>1 then factorial:= factorial(x-1)*x;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i, t : integer;

begin

memo1.Lines.Clear;

t:=strtoint(Edit1.text);

Memo1.Lines.Add(inttostr(factorial(t)))

end;

(:4,9 ГА: 1, 75м ):7 =
(:4,9 ГА: 1, 75м ) - ЭТО ПОЛУЧИТСЯ СУММАРНАЯ ДЛИНА его пути
делишь на 7- скорость - м в час