Проблема вот в чем: мне нужно чтобы легендой были года, которые выделенные во второй строке(2009, 2010, а в диаграмма делилась расчетами. + эти расчеты, на третьей строке, разбивались в самой диаграмме. но постоянно выходит такая фигня. что нужно сделать/ исправить, чтобы получилось как надо?

Const n=10; var a: array[1..10] of   integer;         i: integer;         s,k: real; begin k: =0; s: =0; for i: =1 to n do      begin        write ('числа = '); readln (a[i]);         if a[i] mod 7 = 0   then s: =s+1 else k: =a[i]+k;       end;     writeln('кол-во элементов кратных 7 = ',s);   writeln('сумма остальных= ',k); end.

//dev-c++ 5.11 #include < stdio.h> int main(void)   {long long int i,j,sum=0,currsum,curr,flag;   for(i=6; i< =111111; i++)   {curr=i;   flag=0;   currsum=0;   while (curr! =0 & & flag==0)     {if (curr%10==0)     flag=1;     else     {currsum+=curr%10; curr/=10; }}   if(flag==0 & & currsum==6)   sum+=i; }   printf("%d",sum);   return 0; } //как-то слишком в лоб, но на скорую руку ничего в голову не приходит