Begin{Procedure}
SetColor(Green);
SetlineStyle(0,0,NormWidth);
Rectangle(5,5,635,475);
Rectangle(40,35,600,50);
SetTextStyle(0,0,1);
SetColor(Red);
Case n_menu of
1:Begin{1}
OutTextXY(250,15,'Гдавное меню');
OutTextXY(270,40,'Разделы');
OutTextXY(170,435,'Выберите пункт меню и нажмите Enter');
SetColor(Green);
Rectangle(40,430,600,445);
End;{1}
2:Begin{2}
OutTextXY(70,40,mas_pun[p_kur]);
SetColor(Green);
Rectangle(40,430,600,445);
End;{2}
3:Begin{3}
OutTextXY(70,40,mas_pun2[x]);
SetColor(Green);
Rectangle(40,390,600,445);
End;{3}
4:Begin{4}
SetColor(Green);
Rectangle(40,430,600,445);
End;{4}
5..10:Begin{5..10}
OutTextXY(70,40,mas_pun[x]);
SetColor(Green);
Rectangle(40,430,600,445);
Line(40,155,600,155);
End;{5..10}
11:Begin{11}
OutTextXY(270,40,' ');
End;{11}
12:Begin{12}
SetColor(Green);
Rectangle(5,5,635,475);
Rectangle(40,35,600,50);
Rectangle(40,430,600,445);
End;{12}
13:Begin{13}
OutTextXY(70,40,mas_pun[n_pun]);
SetColor(Green);
Rectangle(5,5,635,475);
Rectangle(40,35,600,50);
End;{13}
End;{Case}
End;{Procedure}