Program Laba_1_2;

{$APPTYPE CONSOLE}

uses
   sysUtils;
var
   a1, n, d, k, an : integer;
   IsCorrect : boolean;
begin
   writeln ('Введите значения k и d ');
   repeat
      try
         IsCorrect:= True;
         readln (k);
         if (k<=0) then
         begin
            IsCorrect:= False;
            writeln('Enter a value greater than zero:');
         end;

      except
         IsCorrect:= False;
         writeln ('Enter the correct value');
      end;
   until isCorrect;
   repeat
      try
         IsCorrect:= True;
         readln (d);
         if (d<=0) then
         begin
            IsCorrect:= False;
            writeln('Enter a value greater than zero:');
         end;

      except
         IsCorrect:= False;
         writeln ('Enter the correct value');
      end;
   until isCorrect;
   an:=0;
      while n <= k do
      begin
         an:= an  + n*d ;
         inc(n);
         write (an);
         write (' ');
   end;
   readln
end.