найти сумму S=х*х+(5/х+2), х в пределах от 1 до 20 на языке паскаль

Program enot;Var x: array [1..20] of integer; i:integer; s,s1:real;beginfor i:= 1 to 20 dobeginx[i]:=i;S:=x[i]*x[i]+(5/x[i]+2);S1:=s1+s;end;write(s1);end.