Pascal/Turbo Pascal - programa progresion aritmetica

{Mira este pequeño programa}

 program progresion;

 uses

    crt;

  var

    k : integer;

    total, term, suma, nu1, nu2 : real;

    p : real;

  begin

     clrscr;

     nu1 := 200;

     nu2 := 5130;

     term := 30;

     total := 0;

     k := 1;

     suma := 1;

    repeat

       if total + nu1 < nu2 then

       total := total + k;

       if suma > 30 then

       begin

       k := k + 1;

       total := 0;

       suma := 1;

       end;

       suma := suma + 1;

    until (nu1 + total = nu2) or (keypressed);

    writeln(' razon = ',k,' ultimo termino = ',total:0:0);

    writeln('  200 + (',k,' X ',term - 1:0:0,') = ',total + nu1:0:0);

     readkey;

  end.