c:/gdsf/web/fuentes_pascal/tabla

PROGRAM EJER48;
USES CRT;
VAR tabla, x, num : INTEGER;
BEGIN
CLRSCR;
WRITE ('Introduzca un numero para hacer su tabla de multiplicar: ');
READLN (num);
WRITELN ('');
REPEAT
    WRITELN (tabla);
    x := x + 1;
    tabla := num * x;
UNTIL x = 11;
END.
PROGRAM EJER48;
USES CRT;
VAR num, sem : INTEGER;
BEGIN
CLRSCR;
WRITE ('Introduzca un numero entero: ');
READLN (num);
FOR sem := 1 TO 10 DO
      BEGIN
      WRITE (num);
      WRITE (' * ');
      WRITE (sem);
      WRITE (' = ');
      WRITELN (num * sem);
      END;
END.