Злая мачеха отправила падчерицу к роднику за водой."вот тебе 2 ведра, в одно из них входит 9 лтров воды, а в другое -5 литров. но ты должна принести домой ровно 3 литра воды",-сказала она бедной девушке. как должна действовать падчерица, чтобы выполнить это поручение?

Налить полное ведро в котором умещается 9 литров, перелить из 9л в 5л, в 9-литровом  ведре останется 4 литра. опустошить 5-литровое  ведро. перелить в него 4 литра из 9-литрового ведра. налить полное 9-литровое  ведро, долить до полна 5-литровое  ведро (в котором было 4 л). получим в 9-литровом ведре - 8литров, в 5-литровом ведре 5 литров. остается опустошить 5-литровое ведро, и наполнить его из 9-литрового в котором 8-5=3 литра останется! так вот =)

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]> 0 then s: =s+a[i];

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

  readln

end.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.