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

begin обязательно нужны. Это так называемые операторные скобки.

я знаю, но почему их 2

я всегда 1 пишу

Первый begin - начало раздела операторов, второй - начало тела цикла.

Ясно, спасибо.

var a,d,k,i,ak,s:integer;beginwriteln('a, d, k:');readln(a,d,k);s:=0; ak:=a-d;for i:=1 to k do begin ak:=ak+d; s:=s+ak; end;writeln('s = ',s);end.Пример:a, d, k:10 2 5s = 70