program border;
uses crt;

{--------------------------------------------------------------------------



--------------------------------------------------------------------------}


VAR    x:integer;

begin

clrscr;

gotoxy (1,1);
write ('É');
for x := 0 to 77 do write ('Í');
write ('»');

gotoxy (1,24);
write ('È');
for x := 0 to 77 do write ('Í');
write ('¼');

for x := 2 to 23 do begin
gotoxy (80,x);
write ('º');
gotoxy (1,x);
write ('º');
end;


end.