псевдографика в паскале

[Euforia_PZAS09_1]

можно ли сделать так, чтобы внешние стороны квадрата увеличивались в N раз ?

Код:

Program Qudrat;
Uses CRT;
const
a=#186;    e=#200;
b=#187;    f=#205;
c=#188;    g=#203;
d=#201;    i=#185;
var
k,n:integer;

Begin
ClrScr;
readln(n);
writeln;writeln;
writeln(d,f,f,g,f,f,g,f,f,g,f,f,b);
for k:=1 to n do begin
writeln(a,'':2,a,'':2,a,'':2,a,'':2,a);
end;
writeln(a,'':2,a,'':2,a,'':2,e,f,f,i);
for k:=1 to n do begin
writeln(a,'':2,a,'':2,a,'':5,a);
end;
writeln(a,'':2,a,'':2,e,f,f,f,f,f,i);
for k:=1 to n do begin
writeln(a,'':2,a,'':8,a);
end;
writeln(a,'':2,e,f,f,f,f,f,f,f,f,i);
for k:=1 to n do begin
writeln(a,'':11,a);
end;

writeln(e,f,f,f,f,f,f,f,f,f,f,f,c);
readln;
End.

[psycho-coder]

Как понять "внешние"?