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

1-ый этап. Творенье переменных.
Так как количество деталей, исполняемых и в 1-ый час и в каждый последующий нам не известно, то для этого количества пригодится переменная.
Одна для исходного количества а, 2-ая для d:
var a, d: integer;
Второй шаг. Присвоение значений переменным.
readln (a, d);
3-ий этап. Творение цикла от 1 до 8.
Так как работа длится 8 часов, то и цикл обязан выполняться 8 раз:
for i:integer := 1 to 8 do
Четвертый шаг. Создание тела цикла.
if (i = 1) then a := a
else
a := a + d;
5-ый шаг. Вывод результата.
writeln(a);