program Liczby;
uses crt;
var a,b,d,c,i: longint;
label pocz;
Begin
clrscr;
writeln('Program wyswietla liczby podzielne przez zadana liczbe.');
pocz:
writeln('Z jakiego przedzialu maja byc wyswietlane liczby?');
write('Poczatek przedzialu: '); Readln(a);
write('Koniec przedzialu: '); Readln(b);
if a>=b then
   begin
     writeln('Poczatek przedzialu jest dalej niz koniec!');
     goto pocz;
   end;

write('Przez jaka liczbe maja sie dzielic wyswietlone liczby?: ');
readln(c);
write('Oraz przez: ');
readln(d);

i:=a;
   {przypisanie dla i=0}
repeat
  if (i mod c = 0) and (i mod d = 0) then
  write(i,'   ');
  i:=i+1;
until i=b+1;

(* for i:=a to b do    {od 1 do 10 wykonuj} {brak srednika}
write(i,'   ');  *)
readln;
End.