По данным построить структурно-секторную диаграмму распределение странам снг. страны (млн. экю.) ес 49908 сша 7274 япония 2378 прочие 10200 итого

program xxx;

const n=30;

var    a : array [1..n] of integer;     i, k : integer; begin

    readln(n);

    k: =0;     for i: =1 to n do        begin

            write('a[',i,']=');

            readln (a[i]);

            if (a[i]> 6) and (a[i]< 10) then k: =k+1;         end;

    for i: =1 to n do            write(a[i], ' ');

    writeln();     writeln('количество чисел=',k);     readln(); end.

program xxx;

const n=30;

var    a : array [1..n] of integer;     i, k : integer; begin

    readln(n);

    k: =0;     for i: =1 to n do        begin

            write('a[',i,']=');

            readln (a[i]);

            if (a[i]> 6) and (a[i]< 10) then k: =k+1;         end;

    for i: =1 to n do            write(a[i], ' ');

    writeln();     writeln('количество чисел=',k);     readln(); end.