Нарисовать углы, используя модуль Crt

uses crt;
var
x,y,a,b,c,d,n : integer;
begin
clrscr;
x:=80;
y:=1;
gotoxy(x,y);
n:=10;
for a:=1 to 5 do begin
for c:=1 to n do begin
write('L');
gotoxy(x,y+c);
end;
for d:=1 to n do begin
write('L');
gotoxy(x-d,y);
end;
x:=x-2;
y:=y+2;
dec(n);
end;
readkey;
end.

uses crt;
const n=5;
var x,y,i,j,d:byte;
begin
clrscr;
d:=2*(n+1);
for i:=1 to n do
 begin
  gotoXY(i+1,i);
  write(#218);
  for j:=1 to d-2*i do write(#196);
  gotoXY(2,i+1);
  for j:=1 to i do
  write(#179);
 end;
for i:=1 to n do
 begin
  gotoXY(i+1,25-i);
  write(#192);
  for j:=1 to d-2*i do write(#196);
  gotoXY(2,25-(i+1));
  for j:=1 to i do
  write(#179);
 end;
for i:=1 to n do
 begin
  gotoXY(80-d+i,i);
  for j:=1 to d-2*i do write(#196);
  write(#191);
  gotoXY(80-i,i+1);
  for j:=1 to i do
  write(#179);
 end;
for i:=1 to n do
 begin
  gotoXY(80-d+i,25-i);
  for j:=1 to d-2*i do write(#196);
  write(#217);
  gotoXY(80-i,25-(i+1));
  for j:=1 to i do
  write(#179);
 end;
readln
end.