помогите перевести в С++ пожалуйста!!!
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);