uses graph,crt ;
   var detect,graphmode,n,i:integer;  d,f,max,k:real;
   a:array [1..15] of integer;
      begin
   writeln('введўть кўлькўсть дўагpам');
   readln (n);
   if n>15 then begin
   write ('забагато дўагpам');halt;end; max:=0;
    for i:=1 to n do begin
    write ('введўть значення для побудови дўагpами');
    readln (a[i]);
    if max<a[i] then max:=a[i];
       end;
     k:=639 / (n*2);
     d:=479/ max;
     initgraph (detect,graphmode,'c:\tp71\bgi');
     setbkcolor(0); f:=0;
     for i:=1 to n do begin
     setfillstyle(1,i);
     bar (round(f),479,round(f+k),round(480-(a[i]*d)));
     f:=f+(k*2);
     end;
     repeat
     until keypressed;  readln;
    end.