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

Program z1;
var a,d: integer; s: real
begin
writeln ('Введите a и d');
readln (a,d);
S:=(2*a+d*(8-1))/2*8
writeln ('Количество деталей за 8 часов=', s)
end.