Source 2 - [iPs]

Program Pzim ;
 var
     n,x,m:integer
 ;
 Begin
   n:=0;
   writeln('Insira o número de pulos: ');
   readln(x);
   writeln('Insira até quando vai o programa: ');
   readln(m);
   writeln('');
   writeln('______________________________');
     repeat
        n:=n+x;
        writeln(n);
     until n=m;
 End.