В первый час работы рабочий делает а деталей, за каждый последующий

1-ый шаг
Начальные данные:
а - количество деталей за 1 час
d - количество деталей, на которое возросла выработка
Нужно отыскать:
S - количество деталей за К часов

2-ой шаг
Соотношения, связывающие начальные данные и итог:
S := (2a + d*(K-1))2 * K

3-ий этап
Блок-схема:

4-ый шаг
program z67;
var a, d, K: integer; s: real;
BEGIN
write (Введите количество деталей за 1 час: );
readln (a);
write (Введите количество деталей, на которое возросла выработка: );
readln (d);
write (Введите время работы рабочего: );
readln (K);
S := (2*a + d*(K-1))/2 * K;
writeln (Рабочий сделал за , K , часов , S , деталь(-ей));
END.

5-ый шаг
Протестируйте программу при следующих начальных данных:

6-ой шаг
Сделайте расчеты при a=15; d=3; K=8.
Результат: 204