procedure kujundus; 
begin
 textbackground(black); textcolor(red);
 gotoxy(1, 1); write ('É');
 for i:=2 to 20 do write('Í');
 textcolor(9); gotoxy(21,1);
 write('Level',c); textcolor(red);
 for i:=27 to 44 do write('Í');
 for i:=2 to 24 do
 begin
  gotoxy( 1, i); write('º');
  gotoxy(45, i); write('º');
 end;
 gotoxy(1, 24); write('È');
 for i:=2 to 44 do write('Í');
 gotoxy(45, 1); write('»');
 gotoxy(45, 24); write('¼');
end;