Написать программу на Паскале

В первый час работы рабочий изготавливает а деталей, за каждый последующий час - нa d деталей больше, чем за предыдущий. Разработайте программу, которая подсчитывает, сколько деталей изготовил рабочий за К часов работы.

Нам нужно ввести целочисленные переменные a, d, K и вывести .

Заводим две переменные: s - суммарное количество деталей, изготовленных за первые часы работы, и next - количество деталей, которых рабочий изготовит в следующий час.

Затем в цикле обрабатываем каждый час: увеличиваем s на next и обновляем значение next.

В конце выводим значение s.

Код (Pascal):

var

 a, d, K, i, s, next: integer;

begin

 read(a, d, K);

 s := 0;

 next := a;

 for i := 1 to K do

 begin

   s := s + next;

   next := next + d;

 end;

 write(s)

end.

Пример ввода:

1 1 8

Пример вывода:

36

(Пояснение: 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 = 36)