Помогите решить пожалуйста! В паскаль!

Program Zadacha; Var fx, x: Real; i, a: Integer; x: =2; BeginFor i: =1 To 10 DoBeginx: =x+0,1; a: =i; fx: =Exp (2*Ln (x / 2*a) — Sin (x); WriteLn ('f (x', i, ')=', fx: 3:7); End; ReadLn; End.