Pascal/Turbo Pascal - Lee un entero N y muestra en pantalla un dibujo como los del ejemplo

{A ver si esto te sirve}

 program presenta;

 uses

    crt;

 var

   num : integer;

   p, t, cont : integer;

 begin

    clrscr;

    write('   Entre Numero : ');

    readln(num);

    t := 1;

   repeat

    for cont := t to num do

    begin

        write(' ',cont);

    end;

    for p := 2 to t do

    write(' ',cont);

    t := t + 1;

    writeln;

   until t > num;

    readkey;

 end.