Задан размер материальных оборотных средств МОС в миллионах рублей за последние два года поквартально Например : 9 (I 2002), 13 (II 2002), 11 (III 2002), 10 (IV 2002), 12 (I 2003), 11 (II 2003), 8 (III 2003), 7 (IV 2003). С помощью Bard3D постройте диаграмму отражающую динамику в высоте столбца размера МОС Под каждым столбцом укажите год Исходные данные вводятся с клавиатуры — Pascal(Паскаль)

uses crt,graph;
const g:array[1..8] of string=
('I 2002','II 2002','III 2002','IV 2002','I 2003','II 2003','III 2003','IV 2003');
var a:array[1..8] of integer;
    mx,i:integer;
    d,m,x0,y0,w,x:integer;
    h:real;
    s,s1:string;
begin
clrscr;
writeln('Vvedite 8 chisel:');
for i:=1 to 8 do
readln(a[i]);
mx:=a[1];
for i:=1 to 8 do
if a[i]>mx then mx:=a[i];
write('Press Enter...');
readln;
d:=0;
initgraph(d,m,'');
setbkcolor(15);
w:=40;
x0:=-20;
y0:=getmaxY*7 div 8;
h:=(y0-40)/mx;
x:=x0;
setcolor(8);
Setfillstyle(1,8);
for i:=1 to 8 do
 begin
  Bar3D(x+w,y0-round(a[i]*h),x+2*w,y0,20,topon);
  outtextXY(x+w-10,y0+20,g[i]);
  str(a[i],s);
  outtextXY(x+3*w div 2,y0-round(a[i]*h)-10,s);
  x:=x+2*w;
 end;
readln
end.