Ejercicio 5(Procedimientos y funciones)

Plantee e implemente un subprograma en PASCAL para mostrar por pantalla el
triángulo de Floyd hasta un número entero introducido por teclado. Además del
subprograma, implemente un programa  principal apropiado para probar su
funcionamiento.


PROGRAM floyd(input,output);
(*Programa que haga el triangulo de floyd hasta un numero determinado*)
 VAR
 a:integer;
 PROCEDURE flo;
VAR
n:integer;
I:integer;
    fila:integer;
    numero:integer;

BEGIN
writeln('Escriba el numero hasta el que tiene que llegar el triangulo de Floyd');
read(numero);
        I:=1;
        fila:=1;
        n:=1;
WHILE n<=numero DO
       BEGIN
                WHILE ((n<=numero)AND(I<=fila)) DO
                        BEGIN
                        write(n:3);
                        n:=n+1;
                        I:=I+1;
                        END;
                I:=1;
                fila:=fila+1;
                writeln
                END;
END;
BEGIN
flo;
read(a);
END.