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

Первый этап
Исходные данные:
а - количество деталей за 1 час
d - количество деталей, на которое увеличилась выработка
Требуется найти:
S - количество деталей за К часов

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

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

Четвертый этап
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.

Пятый этап
Протестируйте программу при следующих исходных данных:

Шестой этап
Выполните расчеты при a=15; d=3; K=8.
Результат: 204