Три подружки - ксюша, лена и даша – купили в магазине груши, яблоки и сливы, причём каждая девочка покупала только один вид фруктов и все покупки у них были разные. на вопрос, кто что купил, продавец ответил: " ксюша купила груши. лена – точно не груши. даша – не сливы". как оказалось позже, два из трёх ответов были ложными и только один истинным. кто что купил? ,

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.

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.