Найди всю величину, если три восьмых этой величины равны 51243 кг.

  помогите перевести в С++ пожалуйста!!!

Var a,b,t,M,R:integer;

Function F(x:integer):integer;

begin

  F:= x*x - 8*x + 10;

end;

BEGIN

  a:=-5; b:=5;

  M:=a; R:=F(a);

  for t:=a to b do begin

    if (F(t)> R)then begin

      M:=t;

      R:=F(t);

    end;