uses
        crt;{Carga libreria de la pantalla}
var
        x1,x2,y1,y2          : integer;
    cantidad        : integer;
    cont                        : integer;
procedure dibuja(x1,y1,x2,y2:integer);
        {Procedimiento que dibuja un marco en las coordenadas dadas}
        var
        cont        : integer;
        begin
       
        {Dibujando desde X1 a X2 en Y1}
        for cont:=x1 to x2 do
                begin
                    gotoXY(cont,y1);{Posiciona cursor}
                write('°');{Dibuja caracter}
                delay(10);{Retarda la ejecucion}
            end;{Fin del FOR}

        {Dibujando desde Y1 a Y2 en X2}
        for cont:=y1 to y2 do
                begin
                    gotoXY(x2,cont);{Posiciona cursor}
                write('°');{Dibuja caracter}
                delay(10);{Retarda la ejecucion}
            end;{Fin del FOR}

        {Dibujando desde X2 a X1 en Y2}
        for cont:=x2 downto x1 do
                begin
                        gotoXY(cont,y2);{Posiciona cursor}
                write('°');{Dibuja caracter}
                delay(10);{Retarda la ejecucion}
            end;{Fin del FOR}

        {Dibujando desde Y2 a Y1 en X1}
        for cont:=y2 downto y1 do
            begin
                        gotoXY(x1,cont);{Posiciona cursor}
                    write('°');{Dibuja caracter}
                delay(10);{Retarda la ejecucion}
            end;{fin del FOR}

    end;{Fin del procedimiento}

begin{Inicia programa principal}
        clrscr;{Limpiamos pantalla}
        write('Cantidad de marcos: ');{Salida en pantalla}
    readln(cantidad);{Entrada desde el teclado}
    clrscr;{Limpia pantalla}
        for cont:=1 to cantidad do
        {
                Pide y dibuja los marcos
        }
        begin
                        gotoxy(70,1);
            write('X1: ');
            readln(x1);

            gotoxy(70,2);
            write('Y1: ');
            readln(y1);

            gotoxy(70,4);
            write('X2: ');
            readln(x2);

            gotoxy(70,5);
            write('Y2: ');
            readln(y2);

            gotoxy(70,1);write('       ');
            gotoxy(70,2);write('       ');
            gotoxy(70,4);write('       ');
            gotoxy(70,5);write('       ');

            dibuja(x1,y1,x2,y2);       
        end;
    readkey;
end.