ekrana çerceve çizen program uses crt;
var a:integer;
begin clrscr;
write(#201);
gotoxy(80,1);
write(#187);
gotoxy(80,49);
write(#188);
gotoxy(1,49);
write(#200);
for a:=2 to 79 do
begin
gotoxy(a,1);
write(#205);
end;
for a:=1 to 47 do
begin
gotoxy(1,49-a);
write(#186);
end;
for a:=2 to 79 do
begin
gotoxy(a,49);
write(#205);
end;
for a:=2 to 48 do
begin
gotoxy(80,50-a);
write(#186);
end;
readln;
end.
var a:integer;
begin clrscr;
write(#201);
gotoxy(80,1);
write(#187);
gotoxy(80,49);
write(#188);
gotoxy(1,49);
write(#200);
for a:=2 to 79 do
begin
gotoxy(a,1);
write(#205);
end;
for a:=1 to 47 do
begin
gotoxy(1,49-a);
write(#186);
end;
for a:=2 to 79 do
begin
gotoxy(a,49);
write(#205);
end;
for a:=2 to 48 do
begin
gotoxy(80,50-a);
write(#186);
end;
readln;
end.
