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.

TABLA DE MULTIPLICAR DEL 1 AL 10 DE UN NUMERO CUALQUIERA (.pas).

PROGRAM TABLA_DE_MULTIPLICAR;
USES CRT;
VAR x,y:INTEGER;
begin
ClrScr;
write('ESCRIBA UN NUMERO: ');
readln(y);
x:=0;
while x<10 do
begin
x:=x+1;
writeln(y,' x ',x,' = ',y*x);
end;
readln
end.

GUIA #8