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

var a,k,i,d,m:integer; {m - запоминает значение a для конечной прибавки..} begin  Writeln('За первый час - ');  Readln(a);  Writeln('За каждый последующий - ');  Readln(d);  Writeln('Сколько часов работал рабочий?');  Readln(k);  k:=k-1;  m:=a;  for i:=1 to k do    a:=a+d;  Writeln('Рабочий изготовил ',a+m,' деталей') End.

Const   A = 10;   d = 2; Var k : integer; Function Detali(dd,kk : Integer) : Integer; Begin   If kk>0 then Detali:=dd+Detali(dd+d,kk-1) else Detali:=0; end; Begin   Readln(k);   Writeln(Detali(A,k)); end.