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

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