Всем доброго времени суток,вот у меня такая,на первый взгляд не сложная задача:(
Кто может,помогите пожалуйста!
Нарисовать по 5 вложенных уголков в каждом угле экрана. Вершины уголков везде направлены в углы экрана, а длины сторон различаются на 1 знакоместо.
http://s004.radikal.ru/i205/1002/90/4c02045f46e3.jpg
Вот мои два наброска,но они малехо не правильно работают:(
1)
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.

2)
PROGRAM L1;
USES CRT;
CONST
A=#196; B=#179; C=#218;
VAR X,Y,N,M,I,J,L:BYTE;
procedure F1(X,Y:byte);
begin
M:=0;
L:=0;
N:=9;
FOR I:=1 TO 5 DO
BEGIN
GOTOXY(X+l,Y+l);
write(C);
FOR J:=1 TO N-M-1 DO
BEGIN
WRITE(A);
END;
INC(M,2);
INC(L);
END;
end;
procedure F2(X,Y:byte);
begin
M:=0;
L:=0;
N:=9;
FOR I:=1 TO 5 DO
BEGIN
GOTOXY(X+l,Y+l);
FOR J:=1 TO N-M-1 DO
BEGIN
WRITELN(B);
END;
INC(M,2);
INC(L);
END;
end;
BEGIN
CLRSCR;
x:=1;
y:=1;
F1(x,y);
F2(x,y+1);
READKEY;
END.

Заранее спасибо за помощь))