Гистограмма

uses graphABC;
const a:array[1..7] of real=(15.05,10.30,17.23,11.60,19.32,21.95,18.70);
var i,x0,y0,w:integer;
    mx,h:real;
    s:string;
    c:Color;
begin
w:=20;{ширина столбцов}
x0:=50;{левый край диаграммы}
y0:=windowheight-80;{нижний край}
mx:=a[1];
for i:=1 to 7 do
if a[i]>mx then mx:=a[i];{находим максимум}
h:=(y0-40)/mx;{масштаб по вертикали}
for i:=1 to 7 do
 begin
  c:=clRandom;{случайный цвет}
  Pen.Color:=c;
  Brush.Color:=c;
  Brush.Style:=bsSolid;
  {рисуем прямоугольники с заданной шириной, шагом
    и высотой соответственно значению чисел в массиве}
  rectangle(x0+4*w*(i-1),y0-round(a[i]*h),x0+w*(4*i-2),y0);
  Brush.Style:=bsClear;
  str(a[i]:5:2,s);{преобразуем числа в строку}
  textout(x0+4*w*(i-1),y0-round(a[i]*h)-20,s);{выводим цену выше столбика}
 end;
end.