Var d_ki_p, t_ki_p, ch_ki_p, p_ki_p:real;
d_ki_s, t_ki_s, ch_ki_s, p_ki_s, kol_stud_s:string;
y1, y2, y3, y4:integer;
Begin{Procedure}
kol_stud:=20;
d_ki:=9;
t_ki:=1;
ch_ki:=3;
p_ki:=7;}
d_ki_p:=d_ki/kol_stud*100;
t_ki_p:=t_ki/kol_stud*100;
ch_ki_p:=ch_ki/kol_stud*100;
p_ki_p:=p_ki/kol_stud*100;
d_ki:=Round(d_ki_p);
t_ki:=Round(t_ki_p);
ch_ki:=Round(ch_ki_p);
p_ki:=Round(p_ki_p);
Str(d_ki,d_ki_s);
Str(t_ki,t_ki_s);
Str(ch_ki,ch_ki_s);
Str(p_ki,p_ki_s);
d_ki_s:=d_ki_s+'%';
t_ki_s:=t_ki_s+'%';
ch_ki_s:=ch_ki_s+'%';
p_ki_s:=p_ki_s+'%';
y1:=300-d_ki*2;
y2:=300-t_ki*2;
y3:=300-ch_ki*2;
y4:=300-p_ki*2;
ClearDevice;
SetColor(Green);
Rectangle(5,5,635,475);
Rectangle(40,35,600,50);
Rectangle(40,430,600,445);
SetColor(Red);
OutTextXY(470,15,grup);
OutTextXY(70,40,mas_pun[x]);
SetColor(Red);
SetFillStyle(11,Red);
Bar3D(145,y1,195,300,10,TopOn);
SetFillStyle(11,Brown);
SetColor(Brown);
Bar3D(245,y2,295,300,10,TopOn);
SetFillStyle(11,Blue);
SetColor(Blue);
Bar3D(345,y3,395,300,10,TopOn);
SetFillStyle(11,Green);
SetColor(Green);
Bar3D(445,y4,495,300,10,TopOn);
SetColor(White);
Line(63,302,600,302);
OutTextXY(40,297,'0%');
OutTextXY(160,y1-10,d_ki_s);
OutTextXY(260,y2-10,t_ki_s);
OutTextXY(360,y3-10,ch_ki_s);
OutTextXY(460,y4-10,p_ki_s);
Str(kol_stud,kol_stud_s);
OutTextXY(260,370,kol_stud_s);
End;{Procedure}