Составить программу на pascal, цикл "для". вычислить 0,1 x + 0,3 x + 0,5 x +…+ 2,1 x

Program n1;
var x, a, S: real; i: integer;
begin
readln(x);
S:=0;
for i:=0 to 21 do
begin
a:=(i/10)*x;
S:=a+S;
end;
writeln(S);
end.