program liczbawzakres_for2;

  uses crt;

  var
    liczba: integer;
    lmin, lmax: integer; {licznik minimum i licznik maksimum}
    min, max: integer;
    i: integer;

    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 (maks>min): ');
     readln(max);
  until (max>min);


{obliczenie startu i konca dla petli aby nie bylo niepotrzebnych przebiegow}
lmin:=min div liczba;
lmax:=max div liczba;

{przedstawienie wyników}
   for i:=lmin to lmax do
   begin
   if i*liczba>min then writeln(i*liczba);
   end;

writeln ('koniec - nacisnij ENTER');


  readln;
  end.