Пожалуйста сделайте программу

Question

Пожалуйста сделайте программу

---

Answer 1

Pascal

Var s, a, n, d: integer;
Begin
Readln (a, n, d);
S=2×a1+d×(n+1)÷2*not
Writeln (s)
End.