Pascal/Turbo Pascal - como hacer un cuadro / en mas cuadros que cambie d

hola tengo que hacer un cuadro dividido en mas cuadritos como de la forma de una matriz y que si el usuario me dice de 4x4 salga asi o si el quiere de 7x7 salga asi.

vivi, hice un programa que te servira, ojo, este programa solo sirve para cuadrados, o sea igual numero de filas y colunmas...

program cuadros;
uses crt;
var
i,j,k,l,m,filas,columnas:integer;
resp:char;
begin
repeat
clrscr;
write('Escriba el numero de filas:');
readln(filas);
write('Escriba el numero de columnas:');
readln(columnas);
clrscr;
j:=1;
l:=5;
for i:=1 to filas do
begin
gotoxy(1,j);
write('╔═╗');
gotoxy(1,j+1);
write('╚═╝');
j:=j+2;
end;
j:=1;
for k:=1 to columnas do
begin
m:=1;
for i:=1 to (columnas-1) do
begin
gotoxy(l,j);
write('╔═╗');
gotoxy(l,j+1);
write('╚═╝');
l:=l+4;
end;
j:=j+2;
l:=5;
end;
writeln;
write('Desea crear otro cuadro s/n?');
resp:=upcase(readkey);
until resp='N';

end.

saludos Pirulex...

como se pone ╚═╝

writeln('&#9562',' ','&#9552',' ',&#9565');
Es texto no numérico,

buenas tardes, amigos nececito hacer un cuadro para dentro del cuadro hacer un programa es decir: que el programa corra dentro del cuadro. por favor si alguien me puede facilitar una idea se los agradesco. otra cosa; como hacer para q esos caracteres especiales se muestren en la pantalla, ta q no estan reflejados en el codigo ascci estandar. muchas gracias saludos.

Primero si quieres que un proceso se realice dentro de un cuadro o ventana tienes que
crear las condiciones con window(1,1,20,20) tendrías un cuadro de 1x20x20 donde
se ejecutara el proceso pero antes de abandonar tienes que ponerlo a su tamaño real
window(1,1,80,25) lógicamente estamos en modo texto 80x25.
Referente a los caracteres especiales los podrás ver con este programa ejecútalo en pascal.

program teclado;
uses
crt, dos;
var
tecla : char;
x, y, nume : integer;
begin
clrscr;
sound(100);
delay(129);
nosound;
x := 1;
y := 1;
nume := 9;
repeat
textcolor(14);
gotoxy(x,y);write(nume);
textcolor(15);
gotoxy(x + 3,y);write(tecla);
inc(nume);
tecla := chr(nume);
inc(y,1);
if y > 23 then
begin
y := 1;
x := x + 7;
end;
until nume > 232;
gotoxy(10,24);
write('pulse una tecla o ESC');
repeat
tecla := readkey;
if tecla = #0 then
begin
tecla := readkey;
gotoxy(20,38);
write(' ');
write(ord(tecla),' ',tecla);
end
else
begin
gotoxy(20,38);
write(' ');
write(ord(tecla),' ',tecla);
end;
until tecla = #27;
end.

Como puedo hacer un acensor en una casa de tres niveles por favor bro

deseo saber los codigos para realizar un cuadro en turbo pascal