program liczbawzakres_for;

  uses crt;

  var
    liczba: integer;
    licznik: integer;
    min, max: integer;
    wb: integer; {wartosc biezaca zmienna pomocnicza}

    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);



{przedstawienie wyników}
   for licznik:=min to max do
   begin
   if (licznik mod liczba =0) then writeln(licznik);

   end; 

   writeln ('koniec - nacisnij ENTER');


  readln;
  end.