Programa que muestra los numeros multiplos de un rango cualquiera.

PROGRAM MULTIPLO;
USES CRT;
VAR x,y,z,s:INTEGER;
begin
ClrScr;
write('ESCRIBA EL NUMERO DE LIMITE INFERIOR: ');
readln(y);
writeln(' ');
write('ESCRIBA EL NUMERO DE LIMITE SUPERIOR: ');
readln(s);
writeln(' ');
write('ESCRIBA EL NUMERO MULTIPLO: ');
readln(z);
writeln(' ');
FOR x:=y to s do
BEGIN
if x mod z=0 then
writeLN(x);
writeln(' ');
delay(10);
end;
readln
end.