C) Блоктар палитрасы деген не?

блоктар палитарсынын 10 тури бар блоктар деп мына суретте жазылып турган кылкалам және т.б. олоар ар турли тусте болады сол ушин блоктар палитрасы дейді кішкене болсада комектести деген ойдамын суретке карасанда бари тусиникти болады деген ойдамын бирак озмиз барынша коп окып талпыну кажет

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i] mod 2 = 0 then s: =s+a[i];

  writeln('сумма четных элементов =', s);

  readln

end.

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.