procedure kuju;
begin
 textbackground(black); textcolor(9);
 gotoxy(13, 8); write ('É');
 for i:=14 to 26 do write('Í');
 for i:=9 to 12 do
 begin
  gotoxy( 13, i); write('º');
  gotoxy(27, i); write('º');
 end;
 gotoxy(13, 13); write('È');
 for i:=14 to 26 do write('Í');
 gotoxy(27, 8); write('»');
 gotoxy(27, 13); write('¼');
end;