Pascal/Turbo Pascal - Pascal Tablas de Multiplicar

program tabla;

uses crt;

var

tabla, X, numero, contador:integer;

Begin

   clrscr;

   X:=0;

   repeat

   write('dame un numero entero: ');

   readln(numero);

       if numero>X then

        begin

            for contador:= 1 to 10 do

            begin

            tabla:=nuemero*contador;

            writeln(numero,'X',contador,'=',tabla);

            end;

        end

      else

         writeln('Fin del programa');

   until (numero=X);

  readln;

end.

program tablas_siguientes;

uses crt;

var

i,j,contador,numero:integer;

begin

clrscr;

write(''Dame un numero: );

readln(numero);

for i:= numero to numero+2 do {generamos los 3 siguientes numeros}

    for j:= 1 to 10 do {multiplicamos el primero por 1 hasta 10, segundo y demas}

    begin

    numero:=i+1; {se me ocurrio incrementar el numero, con valor de i}

    contador:=numero*j; {la multipmicacion}

    writeln(numero,'x',j,'=',contador);{hacemos el formatito de la tabla}

    end;

readln;

end.

uses crt;

var

  Numero, Hasta, I: integer;

procedure TablaDel(N: integer);

var

  I: integer;

begin

  for I:=1 to 10 do

      WriteLn(N,' x ',I,' = ', N*I);

end;

begin

Write('Número: ');

ReadLn(Numero);

Hasta:=Numero + 4; { o 5 o 6 o el que quieras }

For I:=Numero to Hasta do

  TablaDel(I);

ReadKey;

end.