program liczbawzakres_repeatuntil;

  uses crt;

  var
    liczba: integer;
    min, max: integer;
    wb: extended; {wartosc biezaca zmienna pomocnicza - moze przekroczyc int
    nawet przy prawidlowych wartosciach min, max i liczba}
    begin

    clrscr;
    {wprowadzenie danych}
    writeln('Program wyswietla wielokrotnosci liczb w zadeklarowanym zakresie.');
    write('Podaj liczbe: ');
    readln(liczba);

    {przyjęcie i sprawdzenie min i max}
  repeat
     write('Podaj minimum (maks dozwolona wartosc to 32000): ');
     readln(min);
  until (min<=32000);

   repeat
     write('Podaj maksimum (32767>maks>min): ');
     readln(max);
  until (max>min);



{inicjacja zmiennej pomocniczej}
  wb:=0;

{przedstawienie wyników}
   repeat
   if (wb>=min) then writeln (wb:8:0);
   wb:=wb+liczba;
   until wb>=max;

   writeln ('koniec - nacisnij ENTER');


  readln;
  end.