Ejercicio 4

Plantee e implemente un programa en PASCAL que muestre la tabla de
multiplicar de los cinco primeros números en un formato similar al indicado en
el ejercicio anterior.


PROGRAM tabla5primeros(input,output);
(*Programa que saque las tablas de multiplicar de los primeros 5 numeros por pantalla*)
VAR
        I:integer;
        multiplicacion:integer;
        multiplicacion1:integer;
        multiplicacion2:integer;
        multiplicacion3:integer;
        multiplicacion4:integer;
BEGIN
        writeln('Tabla 1    Tabla 2    Tabla 3    Tabla 4    Tabla 5');
        FOR I:=0 TO 10 DO
        BEGIN
        multiplicacion:=I*1;
        multiplicacion1:=I*2;
        multiplicacion2:=I*3;
        multiplicacion3:=I*4;
        multiplicacion4:=I*5;
        writeln('1*',I:2,'= ',multiplicacion:2,'   2*',I:2,'= ',multiplicacion1:2,'   3*',I:2,'= ',multiplicacion2:2,'   4*',I:2,'= ',multiplicacion3:2,'   5*',I:2,'= ',multiplicacion4:2,'');
        END;
END.


Ejemplo de ejecución