программа изображения графика по данным, хранящимся в массиве из 15 целых чисел введённых с клавиатуры.

Program gr;
     Uses Crt,graph;
     const x0=10;y0=230;h=20;
     Type
       mas=array[1..15] of integer;
     Var
       l: ^mas;
       c,g,i:integer;
 
     Begin
      clrscr;
      New(y);
      write('Vvedite chisla:');
      for i:=1 to 15 do
        Begin
          write('l[',i,']');
          read(l^[i]);
        end;
        d:=detect;
        initgraph(c,g,'');
         Repeat
          setcolor(green);
          line(10,10,10,470);
          line(10,230,630,230);
          line(10,10,5,15);
          line(10,10,15,15);
          line(625,225,630,230);
          line(625,230,630,230);
            for i:=0 to 15 do
             Begin
               setcolor(green);
               circle(x0+i*h,230,5);
              If (i>0) and (i<15)
              then Begin
                     setcolor(yellow);
                     line(x0+i*h,y0-l^[i]*h,x0+(i+1)*h,y0-l^[i+1]*h);
                   end;
             end;
      dispose(l);
       until keypressed;
Readln;
     End.